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: IDENTIFICATION 

te. : 

bai & PRODUCT CODE: MAINDES-11-DZ2NCE-C-D 

Pe PRODUCT NAME: GAMMA 11 EXERCISER 

| = DATE CREATED: MaY 1976 

Fier. MAINTAINER: DIAGNOSTIC ENGINEERING 

Bat B AUTHOR: 2, MOORE 

le § 
3 
5 COPYRIGHT (¢) 1973, 1974 8 1976 
= DIGITAL EQUIPMENT LoRBORATION. MAYNARD, MASS. 
= THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONL A SINGLE 
3 COMPUTER SYSTEM AND NAY BE COPIED ONCY WITH THE PRCLUSTON. OF THE ASOVE 
35 SOPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT 
3 SE PROVIDED OR OTHERWISE MADE AVAILABLE 12 ANY OTHER PERSON EXCEPT FOR 
2 USE ON SUCH SYSTEM AND TO ONE WHO AGRSES TO THESE LICENSE TERMS. 
~2 TITLE TO” AND OWNERSHIP OF THE SOFTHARE SHALL AT ACL TIMES REMAIN Th 
bo Dec. 
4 THE INFORMATION IN THIS DOCUMENT I$ SUBJECT TO CHANGE WITHOUT NOTICE 
~= ANS “SHOULD “NOT BE CONSTRUED AS A COMMITMENT SY OIGITAL EQUIPMENT 








CORPORATION. 


a DES ASSUNES NO RESPONSIBILITY FOR THE USE. OR RELIASILI 
sf ESF bee Ch EQUTEMENT WHITH Is NOT SUPBLIEC BY DEC. 





GAMMA LL EXERCISER MACY11 274732) 21-SEP-T& 15:32 PAGE 2 


Q 
ao 


=. 
= 
=e 
-—= 
=< 
a 
=. 
wee 
Ree 
= 
ad 
== 
aoe 
ee 
=e 
7 
--— 
= 
os! 
4 
=2 
== 
== 
-~ 
=3 
-_= 
= 
-—~ 
a? 
= 
= 
a= 


C b.tvteo~ paras tat 


PPI MIATI AIA Arid 


j 
obftte 


: ~Ja% Fi at 


*C DeG0CGs > CF C00 Eo Carune + C bad 


SOOO OCOCOCO CI COCD 


TABLE OF CONTENTS pasta 
1.0 ABSTRACT 

2.9 REQUIREMENTS 

2.1 EQUIPMENT 

5°3  EQUIPMENT-DOCUMENTATION - GPTIONAL 
g-2  BRELININARY PROGRAMS 

2.4. STORAGE 

3.0 LOADING PROCEDURE 


STARTING PROCEDURE 


QPERATOR OPTIONS 
OPERATOR KEYBOARD OPTIONS 
OPERATOR SWITCH REGISTER OPTIONS) 


RECOMMENDED OPESATOR ACTION 
CAMERA/A TUP 

JOYSTICK SETUP 
H3O6/AR11 
HSOB/NC1Li 


MISCELLANEOUS 


DEVICE BUS ADDRESS PT TORT SONS 


Tue 


NNN rOorrm uw + 
ti ] rurumur-C2 totue-O ftututue-O fu-Om © © SWwtue-O oO 


8. PROGRAM DESCRIPTION 
8. CATA CONNECTION $ OISFLAt 
g. OYSTICK MODES 

9.¢.) H30 6/ARiL 

8.2.2 H306/NC11 

S. LISTING 


14 








22 ellie GAMMA 11 ENERCISER © MACYL1 271732) 21-SE°-76 15:32 PAGE 3 


DIN 


i 


arin in 
eC. 


6 
ICI 


ae 


owe 
“™: 


0-2-2 b 26+ poo 09 oh 


“6 


20 +020 +0-26-08 
“IOP U1. Coto - 02.000 SPO Gotu 19.00 


20 +00 


“8 +0 +8 +0. 
A: tent ott ete That thet pt to phat bet hy Het A Sort om 0-20 20-20-20 -26 20-06 


+e +e +8 


0 +0 +0-09-29 «9-< 
COT: CRED SOTTO S.CT Ue + Coe 


i 


di 


fw 
. 


mw 


fu 


rm 


(J 
Loe ] 





ao 


ASSTRACT 





GAMMA ERMERA VIA_THE NCI INTEREACE AND DiSPLAY IT ON A VIDE 
fs VSVO1 DISPLAY. IT CAN BE USED FOR CAMERA, INTERFACE. 1" 
JOYSTICK SETUP OR FOR PRACTICE IN IMAGE MA A TION. IT I5 
MEANT AS_@ EXERCISER RATHER THAN A DIAGNOSTIC. TOTAL PROGRAM 
CONTROL IS ACCOMPLISHED THRU THE CONSOLE KEYSOARD. 


REQUIREMENTS 
EQUIPMENT 

1. POP=11 COMPUTER 

5° 170 TERMINAL (1.E.. ASR23 TY) 7 
3: NCL INTERFACE 
a: GANA CAMERA, (OR, SUBSTITUTE) 


VT91 CR VSVOl OISPL 


EQUIPMENT “DOCUMENTATION = OPTIONAL 

i. 8396 JOYSTICK 

a anit IF SELECT B De sei Heim ree 
3. NCLI-A CAMERA SNSTRUCT ION 
&° DRAWING SET NCL ISA 

PRELIMINARY PROGRAMS 


i. MAINDEC-11-DZNCA SHOULD HAVE PREVIOUSLY SEEN SU N 


MBNURL 


STORAGE 
THIS PROGRAM USES ALL OF LOWER lek OF MEMORY. 


LOADING PROCECURE 


a gad + eaten FOR LORDING A BINGRY PROGRAM INTO MEMORY SHOLLO 


BE FOLL 





rr 





Se 11 EXERCISER MACYLI 271732) 21-SEP-76 15:32 PAGE 4 


4.0 STARTING PROCEDURE 


i) 


—-O.0 
ul 


o- 26-90 <6 © 6-+ 9-6-0 
Habe Mel uw ws > 
2 . be (9 


SN NNPaPOor oo 
“2.000 J0O U1 


na Cure 


me 


20-4) + 6-4b +6 20. 8b 8h + b- 9b 0b + &-0 0-0 p20 pf 2-2 2H 0 p> 


-- 
818188 coco coco CO COU CD G00 *.3- 9 ~tor ~ 


40.0100 900 S20P 01 6 Gotu Oo 


ey eee eee ed ed ed et ed ee ee eS 


athe 
toner 


mm e+ ee | ee eee 













LOADING ADDRESS 200 AND STARTING WILL INITIALIZE THE SYSTEM 
AWAIT A KEYBOARD COMMAND. 


OFERATOR OFTIONS 


OPERATOR KEYBOARD OPTIONS 


TYEE TINT: COLLECT NEw DATA FRoW COMERA - CLEARS CORE MATRIX FIRST 
"Cw= COLLECT DATA FROM CAMERA ~ STARTS NCi1, PREVICUS CORE 
“MATRIX DATA NOT CLEARED 

TYPE "S"= STOP NC11 DATA COLLECTION - ALSO TERMINATES FREE RUN 


0 
hin Sw ZOOM - ne NC11 70 GAIN 
TYPE “fen REGULAR - SET NC11 TO GaiN 2 ‘DEFAULT COND) 
TYPE “V"= SELECT VT01 PLAY 
TYPE Su"- SELECT V MN yeaa My COND SENS 1ST BIT MAP) 


THE CED DISPLAY 
We Hig BISPLAY ten Tope A ye COND} 
TYP. “o"= Rtzotay ISOTOPE GAMMA } 
ie OISPL Riek tee pispray rr ISOTOPE 


TYPE “F"- FREE RUN MOUE - COLLECT AND DISPLAY NEW . DATA 
CONTINUOUSLY - TYPE “S” TO ets THIS MODE 

TYPE “G"- INITIQLIZE EVERYTHING - START 

TYPE “J"= EYES CALIBRE ION USING RL - USE “CNTRL C™ TC 


TERMINATE 
TYPE “K"=- JOYSTICK CALIBRATION USING NO1l1 - USE “CNTRL Z; TO 
TERMINATE MODE - USE “CN 


RMINAT NTRL G” TO TURN OFF“ON BELL 
(NO CONVERT INDICATION? 
TYPE “T"- DISPLAY INTENSITY TEST PATTERN ON SELECTED DISPLAY - 
THIS FEATURE IS FOR DISPLAY VERIFCATION ONLY 


TYPE “CNTRL & C" - ABORT WHATEVER - SACK TO KEYBOARD MONITOR 
TYPE “CNTRL 8 G" - TURN OFF/ON “pean R BELL UPON A NO CONVERT - 
NCLi JOYSTICK CAL ONL 





OPERATOR SWITCH REG! STER OPTIONS? 
NONE 
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CAMERA’ADC SETUP 
‘. PLACE RADIOACTIVE FLOOD SOURCE IN FRONT OF CAMERA bE Tect 

R USE A WEAK RADIOACTIVE SAMPLE ABOLT 3 FEET FROM A 5 sei Ra 
oh THE COLLIMATOR REMOVED. 
COLLECT DATA (C) AND DISPLAY (D) 


ADJUST THE X_AND Y GAIN CONTROLS ON THE NADQi UNTIL A ROUND 
CIRCLE* 1S SEEN AND CENTERED WITHIN THE 80x ON SCREEN. 


4, iN Ne — THE CIRCLE® SIZE UNTIL THE EDGES JUST BEGIN TC TOUCH 


GW tf 


I AN ARTIFACT ON THE CENTER OF THE SCREEN THAT LOOKS 
LIKE @ RIGHT ANGLE BRACKET, THE COINCIDENCE DELAY CIRCUIT 
SHOULD BE ADJUSTED. 


S$. IF THE MATRIX COUNT EQUALS 65,536, THE Z COUNT EQUALS 2 ano 
THE DISPLAY 1S BLANK. THEN TURN OFF THE TEST CLOCK’ SWITCH 
ON THE BACK OF THE INTERFACE AND THE SITUATION WILL E 

a 


7. IF THE MATRIX AND 2 COUNTS EGUAL QO THEN NO CATA WAS 
COLLECTED, THEREFORE, NO OISPLAY. 


# THIS MARY BE A HEXAGON FOR SOME MAKES OF OF CAMERA. 


S. THERE DATA FOR A 3 MINUTE PERIOD AND OBSERVE Mu IMAGE. IF 


JOYSTICK SETUP 


6.2.1 H306/AR11 


CUNT RDEUNTUIT ENTS PUNPUnT Uae eeeagy Fert ePeneUneeereneensertesreneeoeengey 


1. SELECT ARii JOYSTICK CONFIGRATION BY TYPING “J”. 


2. ay ™ XB Y get ON THE H30E JOYSTICK SO THAT THE DOT 
YTOL} ane AIRS (VSVO1) ete yd ORM ACCESS WITHIN 

THE BOX BRAUN o THE SCREEN. IDEAL HYSCIAL CENTER OF 

Ly 3 ne Wr LL PROVIDE A POINT  RBPROXIMATELY CENTERED IN 


3. CHECK THAT WHEN THE JOYSTICK INTERRUPT BAR IS DEPRESSED THE 
DISPLAYED POINT DOES NOT FOLLOW THE JOYSTICK. 


4. A “CNTRL C” WILL RETURN USER BACK TO THE KEYSOARD MONITOR. 











MA i) EXERCISER MACY11 271732) 21-SEP-76 15:32 PAGE & 


MRINDET=11-DINCS-C 
DENTS. P11 
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é.2 H306-NC11 


t 
C000 COCOCDUD ~.)~3"3~39 Aware > Dae 18 Ad tal 
U1 Gale 00 SI Lue 09.000 ~ 
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0.06 


oN 0N Gotu Ou 
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tu 
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SELECT NC11 JOYSTICK CONFIGURATION SY TYPING *". 


REPEAT STEP 2 IN 6.2.1. THE X & ¥ GAIN CONTROLS ON THE NADL 
ADC'S MAY REQUIRE ADJUSTMENT TO REALIZE THIS STEP#. 


3. CHECK STEP 3 IN 6.2.1. 
4. A “CNTRL C™ WILL RETURN USER BACK TO THE KEYBOARD MONITOR. 
* NOTE: IF THE INPUT TO THE ADC’S IS OUT OF RANGE THEN THE NC! 


NO CONVERT FLAG WILL SET. THIS FLAG SETTING IS_ INDICATED ay 
ANGI ai THE BELL ON THE PRINTER (A “CNTRL G’ WILL TURN OFF/ON THE 


i ~~ 


MISCELLANEOUS 


DEVICE BUS ADDRESS MODIFICATIONS . 
NCi1 pr ta LOCATION "NCADR" IF BASE SUS ADDRESS IS NOT 


VSVOL MODIFY LOCATION “VTVADR™ IF 3ASE BUS ADDRESS (CHARACTER 
GENERATOR) IS NOT } i 
MODIFY LOCATION “VTMADR” IF BASE BUS ADDRESS (BIT MAP) 
15 NOT 17e620 


VTOL ° «MODIFY LOCATION “VTADR" IF BASE SUS ADDRESS IS NOT 
«176756 pate 
ARLL MODIFY LOCATION “ARADR" IF BASE BUS ADDRESS IS NOT 
170400 
NOTE: _ A RESTART IS REQUIRED AFTER ANY OF THE ABOVE ADDRESS 
MODIFICATIONS. 


FREE RUN MODE (TYPE “F™) 


MODIFICATION OF LOCATION “TIME” WILL ALTER THE pF a 
IN THE FREE RUN MODE. THE SEFAULT VALUE OF 1oce 
AeouT 1 SECOND. 
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ERROR REPORTING ‘ 
1. INCORRECT KEYBOARD COMMANDS ARE RESPONDED WITH *?° 


&. ANY SELECTED DEVICE (SEE SECTION 7.1) WHICH DOES NOT RESPOND 
ON THE UNIBUS WILL BE INCICATED. 


EXECUTION TIME 


THE EXECUTION TI La MPLETELY DEPENDENT UPON THE USER FOR 


IS _¢O 
ECTED. 


PROGRAM DESCRIPTION 


DATA COLLECTION & DISPLAY 
THE USER MAY COLLECT DATA FROM THE GAMMA CAMERA SYSTEM VIA _ THE 


Vv LAY. 
KEYBOARD AS DEFINED IN SECTION 5.1. WHEN Ma ‘DATA COLLECTION 
py) IS nee THE Mat IS tee the x & Y ll FROM 


AND FOR T OPE, (C AS EQUIPPED WITH DUAL_ISOTOP 
ATTACHMENT ) oh tete VIA B GAMMA LOGIC IS STORED STARTING AT 
ADDRESS 4OOO0O (8). THE INTENSITY OF ae SELL (MEMORY LOCATION) 
OF THE IMAGE MEP ED UPPER AND LOKER 


WITH THE R 
THRESHOLDS AND SCALED TO AN_INTENSITY LEVEL (32 FOR VTO1 AND i 
FOR VSVO1). THE CELL WITH THE HIGHEST COUNT REPRESENTS THE 
Hees INTENSITY | LE LeveL THEREFORE APPEARS BRIGHTEST ON 


THE 
DISPLAY TION OF THE IMAGE DISPLAY, THE FOLLOWING 
PARAMETERS ARE BISPLAVED. 


LOWER THRESHOLD- ALL. VALUES GREATER THAN THIS VALUE ARE 
ISPLAYED 


) 
UPPER THRESHOLD- ALL VALUES ABOVE THIS VALUE ARE ONITTED 
Pane 2 BIT COUNTER OF A/D START PULSES 
MATRIX COUNT- TOTAL COUNT OF THE CONTENTS OF EACH CELL IN 
: THE GYX64 MATRI} 
Z00M- DISPLAYED IF GAIN WAS SELECTED 
B-GANMA- DISPLAYED IF *B’ ISOTOPE SELECTED 














MRINDEC-11-DINCB-C 
DINCB. P11 


I~9~3~I~I0 
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8.2 JOYSTICK MODES 


8.2.1 H306/ARL1 
SELECTING THIS MODE WILL PROVIDE THE USER WITH A CHECK OF THE 
ABILITY OF THE H206 WHEN ONNEC TED TO THE BRL TO 0 DISPLAY Ax an 
Y INDICATION ON THE SELECTED DISPLAY. THIS INDICATION SHOUL 
RGREE WITH THE PROCEDURE DEFINED IN SECTION 6.2.1. THE APLI AyD 


eke HAVE THE FOLLOWING RELATIONSHIP: CHAN O = Y DAT 
c ‘ sme A AND CHAN 2 IS THE INTERRUPT BAR INDICATOR (BeDEPRESSED 


8.2.2 H306/NC11 
SELECTING THE NC11 CONE TGURATON TAKES ADVANTAGE OF THE JOYSTICK 
YT ll. MODE SELE INPUTS 


VAILABLE IN X-Y HOLDING REGIS ND } S_APP 
10 THE SELECTED DISPLAY AND SHOULD CONFORM TO THE REQUIREMENTS 
DEFINED IN SECTION &.2.2. 


NOTE: WHEN USING THE VTO1 DISPLAY tie WRITE - THRU MODE IS 
US WHICH DISPLAYS A SMALL CIRCLE OR DOT. THE VSVQ1 
4 USES THE X & Y CROSS HAIRS AS THE DISPLAY INDICATOR. 
9.0 LISTING 


- TITLE naINOEC-11- DZNCB-C GAMMA 1! EXERCISER 
;*COPYRIGHT (C3 1 
saDIGI TA. EQUIPMENT CORP. 


3é 
327 MAYNARD, MASS. 01754 
309 Eero BY R.MOORE 
491 :ATHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC sySMac 
102 ; SPACKAGE (MAINDEC-11-DZQAC-CO),MAR 21, 1976. 
"404 ogee; a 
40S LEGCO0 Sone 160000 T ON ERROR, LOOP ON TEST, INHISIT ERROR TYPOUT 
3 — -SBTTL BASIC bef tNi ITIONS 
498 - AS. :*INITIAL ADDRESS OF THE STACK POINTER *## 1100 *x# 
499 a Ae . STACK= I 
He “EQUIV EMT. ERROR ;;BASIC DEFINITION Of ERROR CALL 


a nn re a i | 
~~ 
2 Bo A EE WWWIWE) IUPUI IIE CI CIE 
Bae! 


EQUIV TOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 



























RINDEC~ 11-DINCB-< ganna 11 EXERCISER MACYLI 27(732) 
SNe §.P1l BASIC DEFINITIONS 
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413 ;#MISCELLANEOUS DEFINITIONS 

415 000011 HT= 1] s+ CODE FOR HORIZONTAL TAB 

415 0001 ube de CODE FOR FE 

46 0091 , CR SEESDE FOR CARRIAGE. RETURN 

41? 0250 | CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
418 177776 S= 177776 TPROCESSOR STATUS WORD 

419 EQUIV PS, PSW 

420 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 

451 77e7e PIRQ= = 17777 ; }PROGRAN INTERRUPT REQUEST REGISTER 
432 177500 DSWR= 177570 HARDWARE SWITCH REGIST 

123 177570 _ DDISP= 177870 ;;HARDWARE DISPLAY REGISTER 

5 | 

425 , ;¥GENERAL PURPOSE REGISTER DEFINITIONS 

4e6 - alsielaie / 3 ;;GENERAL REGISTER 


432 AA 6 , = % ee 

433 a03087 R7= “7 :GENERAL REGISTER 
424 .EQUIV Rb, SP Stack POINTER 
435 [EQUIV R7;PC ::PROGRAM COUNTER 
437 ;xPRIORITY LEVEL DEFINITIONS 

428 ooo909 PRO= OO 


439 000549 PRiz 40 ; 33 TY 


464 EQUIV S409, SH 
HES "EQUIV Soa’ Swe 
456 “EQUIV 5W07; SW? 
467 "EQUIV SW06' SWE 


. . . 
463 000001 SWOO= 
- SwOS ; SWS 
! 
| 





“7 


LW OWONMUILCWM-OwW 


LAU UN UT Cn UCU Un UU Tn Ton 
TUTUMTUTUMN— b-s 0-2 8 bb  - 


o-oo 


ne oe ee 
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-EQUIV SWO4, SW4 


DBDODDVODOWOWOOWMWOMa-- 
= DWE 


04 4 4 4 4 4 0 0 


pSDATA af oe (BITGO TO BIT1S) 


AAA AHH 
Or-MW) CUI OW 


—+ wom 


RAP VECTOR ADDRESSES 


;*BASIC “CPL” 


ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 


= 64 
PIRGVEC=240 


OUT AND OTHER ERRORS 
oneae AND ILLEGAL INSTRUCTIONS ‘ 


RACE TRAP 
H BREAKPOINT TRAP (B8PT 
+ POUR purput TRAP (TOT) #*SCOPE*# 
; ;ENULATOR TRAP (EMT) *##ERROR#* 
$3TTY KEYBOARD VECTOR 
43 1TY PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 


;SOME COMMON PROGRAM VALUES AND EQUATES 


CLALL=100 
MATRIX=20000 


:CLEARS 2 var i A. y 
STARTING ADRS "of MATRIX DATA 





.SBTTL TRAP CATCHER 











ee ee 


MAINDE2-11-D2NCB-C 
DZNCB.P1l 


S 
$34 


00174 
Q 


C176 


o0020C 


000080 


000174 
900990 
900000 


covis? 


001355 ° 


:#SE 
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TRAP CATCHER 


;#AL [BRGSED, Lacarzons. Ron FROM 4 - ga) A” a2, HALT” 


GAL TRAPS AND INTERRUPT 


:#LOCATION 9 CONTAINS o TO CATCH IMPROPERLY LORBED VECTORS 


OISPREG: 
SW 


-WORD QO ; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER. 


*SBTTL STARTING. AODRESS(ES) 


mee ee eee 


2aSTART 3; JUMP TO STARTING ADDRESS OF PROGRAM 











MAINDEC-11-DZNCB-C — SAMMA 
DZNCB.P11 COMMON TAG 


SE66ee5588Se8G68S8SS8S8S8SSSSo0a 
b+ bb Bh 2 bb Bb 0 = bh = be he ae he 
NEE COW WW MN DOO0O0 


mp 
tae 








-SBTTL CUMMON TAGS 


Dae ay gem pe ie cree ome cote geyser 
VARIOUS COMMON STORAGE LOCATIONS 


ESTHT 
Use 


SALTOB: . 
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.;; INTERRUPT MODE INDICATOR 


BROCCO 0Or-NAH000G00 


ae 
w 
uv 


~ 


FILLS 
3 7CONTAINS # OF Cee lle Reutnen 


















s;START OF COMMON TAGS 
::CONTAINS PASS COUNT 

5 CONTAINS THE TEST NUMBER 

SOO NTAING SUBTEST ITERATION COUNT 

ss CONTR RIN Sai LOOP BODAE 

: CONTAINS SCOPE SOO URNE POR “ERRORS 
>:CONTAINS TOTAL ERRORS DETECTED 
>:CONTAINS ITEM CONTROL BYTE 

ss CONTAINS MAX. ERRORS PER TEST 

>:CONTAINS PC OF LAST-ERROR INSTRUCTION 
eaurate SEDER oft 
frail. Ne aiid par 


TAINS *BAD’ DA 
;;RESERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 


;;ADDRESS OF SWITCH REGISTER 
;;ADDRESS o ae REGISTER 
itty ATUS 


siTTY PRINTER STATUS REG. ADDRESS 
::TTY PRINTER BUFFER REG. ADDRESS 
: CONTAINS NULL CHARACTER FOR 








ss INSERT FIL OS. ange 
33 TE ao a. VAI CABLE” PERG” (BI Ni? SaEYES) 















F > 
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DZNCB.PLi ERROR POINTER TABLE 












578 .SBTTL ERROR POINTER TABLE 

578 i . sATHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

57 HE INFORMATION I fe Rae BY USING THE INDEX NUMBER FOUND 

s — HaLca ONS TIEN : ATES WICH Tren Y N THE “TEBLE IS PERTINENT. 
Bb | . sete: “Efit SER GR 115 att CONTAINE 4 POINT “EXPLAINED AS FOLLOWS: 
534 | 4 ot EM 3 sBOINT TO THE ERROR MESSAGE . 

595 . :% OH ;7POINTS TO THE DATA HEADER 

586 x oF } ::POINTS TO THE DATA 

597 % DF s3POINTS, TO THE DATA FORMAT 









9 bibs 
590 OO1ley SERRTB: ; : ay 
e931 ;THIS PROGRAM DOES NOT USE THE ABOVE ERROR TABLE | ° 
593 







°33 ;NC11 BUS ADRS ASSIGNMENTS - MODS ARE TO BE MADE HERE 
601 OO01164 164900 ~ NCADR: 164000 





















obs , 3VSVO1 BUS ADRS ASSIGNNENTS (CHAR GEN) - MODS ARE TO BE MADE HERE 

B05 OO11S6 172600 VTVADR: 172600 : 2 ? 
a , ;VSVO1 BUS ADRS ASSIGNMENTS (BIT MAP) - MODS ARE TO BE MADE HERE 

609 001170 12620 VTMADR: 172620 . ‘ 

p11 | ;VTOL BUS ADRS ASSIGNMENTS - MODS ARE TO BE MADE HERE 

S13 00172 176756 ; VTADR: 176756 fo 

p15 ;ARL1 BUS ADRS ASSIGNNENTS - MODS ARE TO BE MADE HERE 

617 001174 170400 170400 








—_—_———-- 
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619 :NCLL REGISTER ADDRESS POINTERS 
a) SH Me Sk spr stan 
Sa2 Siete LEMOS NEAREG: 164904 ZRODRESS 
Sc RSiS5q JESSIE NEGHT:  16HE08 SHI 2 COUNT 
es 951219 les0l2 NefReG: TeMOle pahdiaan 
be, SUSIE | Lescis NCSFUN: 164014 {SPECIAL FUNCTIONS 
$33 :VSVOL REGISTER RODRESS POINTERS (CHARACTER GENERATOR) 
S31 O012i4 172600 VIVORG: 172690 ; CHAR STATUS 
32 G3ii1s 172602 VIVEHP: 172602 CROSS HAIR PO 
p33 501220 72508 VTVEOS: 172604 ‘EAaR Pog 
oF 4 ;VSVOL REGISTER ACDRESS POINTERS (BIT MAP: 
1 §37 091222 172629 VIVESR: 172620 . ; COMMAND STATUS 
oe RE Hees i an 
B45 Sotesc 17sese VIVEXL: 178626 SEIXEL BYT 
Dee Pagre A chore VIVINT: i72e36 INTENSITY LOOK UP 
BS ;VTOL REGISTER ACDRESS POINTERS 
; og = +92 = es = =. = j 
| Ee Bae H.R een 
53° AA?D = 17e7 ee wunax: os =:5 oA DAE 
ug wwed te e «3é . TYDRE: eo Ay LF $ t dac 
| 23 sARLL REGISTER ACORESS POINTERS 
«882 S01B4 172420 BROSR: = 1TDYC SSOMMAND/STATUS 3 CHANNE 
| eB REYES pO54as Beir; | [S5082 ‘Sgr ee 
| sss 











ae sit DIONCB-¢_ SAMMA 1) at ee MACYL1 21-SEP-76 15:32 PAGE {5 


ERROR POINTER TAS! | 
CN PROGRAM TAGS AND STORAGE LOCATIONS 
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; COMMON ural ity LCz 
3 COMMON UTILITY t. 
COMMON UTILITY 
;0= oe DISPLAY 

Y LEVELS, 18 OR 32 


sVSV SCR Seen MONE ( Suk’ WHT: ENR SISPLAY 
“CURRENT CORE AoRS- be “gt BEING DISPLAYED’ 
:CURRENT ADRS OF au LD 


; CURRENT PIXE QUNT 

4 PIXELS AS le HERE BEFORE SIT MAP L 
‘Count 64 DISPLAYED POSITIONS EACH ROW (VTOL) 
:COUNTS 64 vror a YTO1 DISPLAY 
:X POS FOR VTO! DISPLAY 


EON fig as i chee That tees CONVERST: ON FOR VT31 OISP 


: 0 PRIN ne 
:LOW THRESHOLD VALUE APPLIED TO NaTR 
‘HIGH THRESHOLD VALUE APPLIED TO MA 
:SAVED_NC11 CSR CONTENTS WHEN DISPLA 
:GAIN 220, GAIN 1=40 
;TOTAL 8 1 CELLS IN MATRIX La 
( 


CONTAINS g CURRENT x Bag DAC satire 
; NS CURR POS + 


RIX CELLS 
rine SELLS 


aw 


3 COUNT UW OF CO ‘- 
conraNs STARTING HORS OF HATRIX OF SELECTED “1s0T0°e 
uid DELAY FOR 20 COLLECT! ING “DATE-EREE a CE 


He rN AIN AHAN 8 UNT Scraa 
30 SAYS LST “St T ‘na, + SAYS ev BIT MRP. VSV32) 
34 SAYS RING BELL ON NO CONVERT, = SAYS DUN'® 
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-S8STTL MAIN PROGRAM 


ALIZE THE COMMON T 
sale Somthe. (SCMTAG) Bes 


Ren 
— »RE ;; DONE? 


Bie 

#STACK, SP 

s INITIALIZE A FEW VEC Tors 
MoV #$TRA 

#340 SiTRHPVELse; tive 
* ON, aaP 


HOY 
ZE FOR a WARSLARE SWITCH REG 
teat SETUP FORA 


i 

7 
ce 
- 
, 


fs 
} 


3 
5 
i 
i 
E 
2 
g 
é 
2 
5 
5 


a AISPLaY 


& Fhe 


~ OWE 


CUO -+ 0 0 = 0-2 0 0 0 po 


SSWREG 
sotepaee e DISPLAY 
(SP) +, JBERRVEC 


9-9-9NINIINT DI IIN IY 


wt Ul s: 


fo 


~- 
qjwru 


ee «6 


FESTUS 
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+:f 
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tu 
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B 
y 


Oowmwwr 
re 


o-- & <9-< 


AGS 


FIRST LOCATION TO BE CLERRED 
t ICLEAR MEMORY LOCATION 


;;LOOP_BACK IF NO 
;;SETUP THE STACK POINTER 


Were — FOR TRAP CALLS 
POWER. FAILURE VECTOR 


Sa GEveL Ex F NOT FOUND OR IT Is 
SOF TWARE TCH REGISTER. 
ERROR VECTOR 


sRNO THE HARDWARE 
BRANCH IF NO TIMEOUT 
3;SET UP FOR TRAP RETURN 


33POINT TO SOFTWARE SWR 
; ;RESTORE ERROR VECTOR 


:G0_ IDENTIFY PROGRAM 
DEFAULT TO VSvOl DISPLAY IF THERE 


> IF NOT 00K KF OR vids BY SYSPLay 
3;6R IF AT LEAST THERE 01 DISPLAY 
330 TYPE BUS TIMEOUT B - 8 eval CISPLAY 
360 TYPE "BUS TIMEOUT ER - VTQ1 CISPLAY 
:NO DISPLAY SEEN AT ASSIGNED SUS ADRS'S 
°GET NCI RS 
; GET POINTER a RS 
:SET UP NC 11 REG ADRS PTRS 
;BUMP RES ADRS 
hs SET UP? 
;BR IF NOT 
:SET UP TIMEOUT ADRS 
: WILL TRAP TO “Loe 4 IF NOT THERE 

IF THE 


:8R 
sFIX STACK SINCE NO RTI 
69 TYPE e TIMEOUT ER = NLL" 


NCLI ED 
BERRVES#2, sacnnvic ‘ sRESTORE ERR TRAD LOC TO PT TOs 


fit ye £o 


901! 
00! 
091 
00! 
C1 
C01 
001 
053 
051 
Col 
501 
00} 
oc! 
001 
OG} 
091 
nies 
501 
091 
051 
981 
OC! 
coi 
561 
093 
Co! 
ODi 
S91 
991 
931 
331 
0Si 
96! 
093 
je ofl 
Cel 


JSR NCSTP 
MOY MATRIX SNC OFF 
CLE GAIN 


cron 
4 


Lo) 


we ee te wee ne ee oe ee 


7b 

:G0_ STOP 1 $ CLR CORE MATRIX 
:SET sEset. ?AoRS” ecccd: 
REGULAR GAIN 
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DoNcs. PL! INITIALIZE THE COMMON 7 
4g gg1euy 912032 ppg) 901340 Noy MATRIX, TABLEX : ISOTOPE A THRESH 
UD 0 rd w gl c \ He O.5 
oF S516 Biae3 Te845 oor3yy MOV 8197777, THE REILING THRES 
3 ocis64 O1e-37 d0e122 500065 HOV axSINT, ThvEs :3eT bi TNTR RETURN coe 
bre Olera? ‘OOO34 = j 8 VEC+ 6 
abe RRtSCR Riscds Beatie DRRLSE ey ged Sette Fe ei 
TSS 801758 134400 «823643 TYPE Nach °30 ASK FOR Et BOARD COMMAND‘: 


eo re ee a ee ege enee oe eee c= ae cee me: ee 
; 
‘ 





ea ae EC@11-DINCS=C 


tate? 


GAMMA 11 EXERC 1 gs oe 27.732) 
INITIALIZE THE ¢ COMM U ASS 


oc ighe 


001306 
0C0i51 


77rsg 
09033 


001776 
001775 


:THIS IS A LIST OF KEYBOARD COMMANDS FOR THE NCLL/DISPLAY/ JOYSTICK 
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B pI SELAY ATA 
: ERASE THE SCOPE 


3L GET LOWER THRESHOLD FROM KEYBOARD 8 pHeetay DATA 
3U 4 UPPER toate PR FROM K YBOARD & Oi PLAY DATA 
:N UL CT NEW DATA al cae A (cL ORE MATEIx) 
3C LECT DATA FROM 

Ht) 

:G SIO SOMLE HON ine 

32 200M - SET GAIN T 


I 
3R REGULAR - SET GAIN 70 2 
3A DISPLAY ISOTOPE A 
DISPLAY yint OPE 8 
SELECT Vi01 DISPLAY 
SELECT VSVO1 DISPLAY (DEFAULT i & 1ST BIT MAP) 
SELECT vSVOl DISPLAY AND USE 2ND 
FREE RUN MOD COLLECT & Ae NEN DATA CONTINUALLY 
JOYSTICK CAL BRAT WN ie on 


TICK CALIBRA USING 
T DISPLAY INTENEETY TEST IMAGE aN SELECTED OISPLAY 
;CNTRL C ABORT WHATEVER - BACK TO KEYBORRD MONITOR 
sCNTRL G TURN ON/OFF BELL (NO CONVERT INDICATION) - IN NCli 
;JOYSTICK CALIBRATION ONLY 


:THIS CODE WILL DISPATCH PROSRAM TO THE PROPER 
FRQUTINE VI VIA bias a TABLE “RTABLE’ 


AA NSE rw 


REERN KNOCK ote FREE RUN MODE IF SET 
MC. aS TACK, sp :RESET STACK PTR 
CLR KBUF : INSURE N REYEORRO, GARBAGE 
ccR pen :ALLOW KEVEORRD INT 
LISN: MOV KBUFF RO :L OOK 
REQ LISN + Oe SNE 
SiR KBUFF 
EMp RO, #191 twAS IT A CHAR? 
Bcs BOdB00 SNOT A 00D CHAR 
gre 8177740.R0 ELIMINATE L LOWER CAS CASE 
CMP RO, #33 
gcc B05800 ‘oR IF NOT 
ASL RO :MAKE UP WORD OFFSET 
TST RTABLE-2(RD) 31S IT A LESAL COMMAND? 
BEG ;8R IF NOT 
MP JRTABLE-2(RO) 360 00 It 
sKEYBORRD DISPATCH TABLE 
RTABLE: ROUTA :'A’ DISPLAY [Seroee ) 
ROUTB ;°B° DISPLAY SCTOPE B 
ROUTC :'o" COLLECT . 
ROUTS :'D’ DISPLAY ate 
ROUT :'E* ERASE SCO i 
ROUT :"F’ FREE RUN (COLLECT NEW DATA $ DISPLAY 
ROUTS :°G’ INET IALIZE EVERYTHING 
:*H’ 800800 
:*I* BOOBOG 
ROUTI | 2'3° GC TO ARL] JOYSTICK CALIBRATION 











em eo cree anne eoee 
} 


Me (9.000 ~ 30 U1 £ Loftus 


TUTUT LI e+ -< obo = 9 -- pe use 


000000000000 Co W909 Co ot oD 





NRINDES=11-DINCS=C 
ae ITI 


90202 
oe 


Q92302 


592576 


012737 
09 


lee 137 


SAMMA 1! & 
TIALIZE THE 


OCSSOE 
O0S440 


NERCISER MACYI1 27.732) 
COMMON TAGS 


01319 


091340 
C0134C 


O0is4= 


001344 | 


009540 
000123 


001306 
001306 


176746 


0 
ROUTZ 
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ay 


;*K’ GC TO Hee mat Me. SONS doneo 


Es Stas vsvol Y BisPLaY. ie Nee eno aie o:7 MAP 
;°N’ GET NEW DATA FROM CAMERA 


| 8. a COL 





“bh BISPLAY. INTENSITY TEST IMAGE ON SELECTED CISPLAY 


:;U; GET UPPER THRESHOLD FROM xEYEOARD 
sys SELECT VOL DISPLA , 

sW’ SELECT VSVO1 OISPLAY (DEFAULT COND USING 
;*X* BOOBOO 


; 00800 
;°Z° ZOOM - SET GAIN TO 1 


;REPORTS ILLEGAL KEYBOARD CHARACTERS 


B50B00: MOV 877, TTYOUT 
IS& pc, tYPO 
I5R PC’ TYPCR 
BR LISN 


ROUTA: py sMATRIX, TABLEX 


sSET up *?" 
: TYPE 5 


:00 A’ 
:G0 LOOK FOR GOOD CHAR 
;WILL DISPLAY ISOTOPE A 


Mp 
ROUTE: HOY —AHATRTx+20000. TABLEX ; ate DISPLAY ISOTOPE 6 


ROUTC: JSR PC NeSTRT 


ISR Pc fiesTed 


JSR PC ,NCSTRT 

CLR RO’ 

MOV. TIME,RI 
1$: DEC RO 

ONE 


1$ 
BIC #BITS,KBUFF 


CMP - #123,.KBUFF 
BNE 
BIC #3, NCCSR 
CLR aNecsR 
IMP ae 
23: DEC l 
BNE z 
IMP CHANGE 
ROUTG: JSR PC, ERASE 
MP START! 
ROUT]: JSR = PC, SELCTC 
. Bes 13° 
IMP TJOY 
1S: TYPE MSG? 
IMP LISN 


te ae eee ee ee 


ia START NCL 
: COLLECT ‘baTR UNTIL KEYBRD COMMAND 
GO DISPLAY DATA 
369 ERASE SCOPE 
7&0 pat ON NEXT Coen 
>SELECT FREE RUN M 
:G0 STOP NCI1 & CLR SORE 8 MATRIX SREA 
60 STAR T NCL1 
:SET TIMER 
SET ‘P GROSS TIMER VALU 
tWAIT FOR ZERO 
LOOK FOR Papal ete STOP KEY - RID LOWER ASE 
: STOP BE BEEN STRUC 
;8R IF NOT 
:STOP NC11 
;cERO NC CSR 
:GQ AWAIT NEXT » COMMAND 
320 008 AGAIN? 


:NOu GO DISPLAY DATA f5) Coe! TED 

: RT FRESH 

80 SELECT ARI1 FOR JOYSTICK CAL 
as ER FROM ARI! 


:G0 I 
20 TYPE ‘SUS TIMEOUT ER - ARit* 
360 BACK TO KEYSCARD LISEN 


‘-?- 
45 


_ 


SIT MAP 





00h. 0.0.0.0. 8 6.0 
eo NE net Bee eee 
MmunNciun-OwMn7) £ 


al “\ dienes C__GAMMA 11 get wet 27(732) 
DINCB.P INITIALIZE THE COMMON T _ 


001346 

6 
613331 
OOLa1e 
005112 
001222 


Cis4le 


905506 


000 
013331 
001314 


1 
002615 
00S2be 


001722 
013453 


001252 
005ile 


001222 
go0409 
001732 
O134!e 

Cog04s 
77 


003320 
001732 
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re SAYS NC11 FOR JOYSTICK CAL 


‘BON 'T WANT ANY NTR’ S NOW 
3ASK EOR OCTAL DAT 







:SAVE IT 
; ENABLE INTR’S 


ISPLAY 
SEL ECT eND git MAP 
:G0 ar vSv0 
:BR_IF BUS TIMEOUT ER FROM VSVO! 
:GET 2ND BIT MAP ADRS 
: TURN ad 1ST BIT 1 
360 AWAIT NEXT COMMAND 
;G0 TYPE *BUS TIMEOUT ER - VSVO1 DISPLAY’ 
:GO0 BACK TO ey: » chal are 

C 


TRIX 
$60 51 NETH PRE BREV ious CSR CONTENTS; 
; COLLECT DATA & AWAIT NEXT KEYBRD COMMAND 
;WANT REGULAR GAIN 


INSURE REGULAR GAIN 
;LO0K Ay NEXT COMMAND 
















; 






ZERO NC _CSR 
:LO0K_FOR NEXT conn AND 
:G0 STOP THE Belt IF a ian 
30 SET CORE IMAGE 












ra EO FOR OCTAL DATA 



















;SAVE IT 

: ENABLE a S 

;G0 DISPL 

:G0 SELECT "yro1 

:BR IF TIMEOUT ER FROM VTOL 
:$0 AWAIT NEXT COMMAND 


NEX 
30 TYPE *BUS TIMEOUT ER - VTO! DISPLAY" 
360 BACK TO Po LISEN 
;SELECT 1ST BIT 
:60 SELECT VSVO1( (DEFAULT ¢ OND} 
;BR IF _TIMOUT A. FROM VSV Oi 
T 1ST B AP_ADRS 


2 XT_COMMAND 

TPE "BUS TIMEOUT ER_- VSVOiL CISFLAY’ 
8 BACK TQ KEYBOARD LISEN 

sENAGLE GAIN 1 

;SET IT AT NC CSR 

G0 AWAIT NEXT COMMAND 





(doe Tw 





eee : 1-DZNC B-¢ 
>No 


O02056 


004737 


O04737 


005290 


GAMMA i 
INITIALIZE 


00S536 


O0S464 


001254 


001750 
073567 
OOSES4 
001770 
COSS4E 
996010 
00S634 


096039 


005676 
000635 


OCSE7E 


LE 
THE 


xe 
C 
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:G0 CLEAR SCREEN OF SELECTED DISPLAY 


CHANGE: JSR -. PC,ERASE ;GO ERASE SCOPE 
;STOP NC11 AND GET SET TO DISPLAY 
DISDAT: JSR PC,NCSTP ;G0 STOP NC11 


:NOW DRAW A BOX AROUND POTENTIAL MATRIX CISPLAY 


rAREA ne see ° DISPLAY 


80x: ST YPE ;WHAT DISPLAY? 
BNE BOX! :BR IF VTOI 
MOY #1750,R0 :SET UP BIT MAP ORS - ae LINE 
MOV #73567, R1 ;SET PIXEL DATA IN RL - INT 7 
JSR PC, DISP ;G0 LOAD BIT MAP 
18: INC :ADVANCE ADRS 
CMP  —s-&1770, RO ; TOP INE DONE? 
BEG :BR IF S 
JSR PC, DCONT SLOAD NEXT PIXEL WD 
BR . sNEX XT MAP: Log 
2$: MOV #5010,R0 ;SET UP BIT MAP ADRS - BOT LINE 
JSR C,DISPY :GO LOAD BIT MAP 
33: INC “ADVANCE ADRS 
CMP #6020, R0 ;BOT LINE DONE? 
BEQ -BR IF SO 
ISR PC, DCONT soe Nex NEXT PIXEL WD 
4S: MOV #1730,R0 ;SET up's BIT OP ADRS SIDE LINES 
cs: ADD 7,.R0 : OFFSET NEXT ROW 
MOV #70006, Ri :SET UP PIXEL 3 DATA IN RL - INT 7 
CMP #6047 ,R0 :AT BOTTOM OF SCREEN? 
BEQ b °GO START VSVO1 DISPLAY 
ISR PC, DISPY :G0 Lond 
MOV #7 R1 :SET UP PIXEL 9 DATA IN R! - INT 7 
ACD #21, RO OFFSET TO RIGHT LINE 
JSR pc, bISPY ?GO LOAD BIT MAP 
BR :D0 NEXT ROW 
6S: MOY VIVSAV,aVTVCSR :START DISPLAY 
MOV #2010,MAFADR § ;OFFSET BIT MAP A 
MOY #3, PIXCNT 3SET UP PIXEL BYTE COUNT 
C PIXASM CLR PIXEL ASSEMBLY WOR 
IMP LARGES. $e DISPLAY CELL Data 
BOX1: MOV #3777 , RO :SET UP x 
MOY #3636.R1 :SET UP Y 
18: Pe: PC .DISPY1- sD ISPLAY POINT 
BPL 1$ sAGAIN TILL DONE 
ING RO =3636 
23: ISR PC, DISPY1 ‘DTSpLay POIN 
DEC RI “se 
CMP #635,R1 aT ‘Boren LEFT? 
BNE 2g :BR IF NOT 
INC Rl {2636 
2$: JSR PC, DISPY1 sATePLAY SOINT 
INC RO :MOV X BY | 


ee Cee 2 ee 








OOOVOVOOOHoOOOON0ON 
Rei to eerie use 
KOOONMU CU 


au 


fOrororons 
CONMiUN £G) 
Ben 
3 


1-DZNCB-¢ 
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INITIALIZE THE COMMON T 


022700 


BlSREREPS 
Ratnieteieista 
pasiDvsicim ities 


So 
=H 


004000 


005676 
003636 
000109 
099169 
001300 
003605 
091322 


178174 
001340 


001314 


001324 


OC13le2 


002560 
001334 
> 


091340 
001314 


001312 
001254 


001254 


001274 
001276 


001302 


091324 


201264 
CO1264 
001336 


091264 


001336 
001264 


GSG: 


CMP #4000, RO 
ee OG 
¢ 

4$: veh PC,DISPY1 
INC R 
CMP #3636,R1 
SNE 4$ 
MOV #100,HORIZ 
MOV #100, VERT 
CLR 
MOV #1526. , YREF 


;NOW LETS FIND THE LARGEST CELL 
LARGES: ey y ath SIZ, CHARCT 


LARGEL: CMP 
* CMP’ -(R1), THH! 
HHt 


OVTHHI: 
DEC CHARCT 
BNE LARGEL 
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;AT BOTTOM RIGHT? 
NOT 


:BR 
:%=9777, Y=636 
;DISPLAY POINT 


;MOV_Y BY 
;AT TOP veuca? 
:# OF HORIZONTAL POINTS FER ROW 


i 
START AT LEFT MARGIN 
SAND TOP OF SCREEN 


ae OF ELEMENTS TO CONSIDER 
THIS IS FIRST GUESS 

RI wide t TQ TABL 

;COMPARE GUESS AGAINST NEW 

: GUESS STILL GO 

;GUESS SMALLER BUT CHECK NEW 

ZHI AGAINST UPPER THESHOLD 

WITHIN BOUNDS. MAKE THIS NEW HI 

INCREASE REGISTER BY 

:COUNT THIS LAST COMPARISON 


;THE LARGEST CELL WITHIN THE UPPER THRESHOLD IS NOW IN RO 
;NOW ACCOUNT FOR LOWER THRESHOLD SUBTRACT IF TOO SMALL 


$ 
DISDON 
RO, CPERL 


H 
JMP 
1$: MOV 


LOWER THR 


39 HRESHOLD 
:BR IF CELL VALUE GREATER THAN LO THRESHOLD 
SPLAY-ALL VALUES SELOW LO THRESHOLD 


DON’T DI 
;SAVE LARGEST CELL OF MATRIX 


:NOW PICK OUT EACH VALUE IN CORE MATRIX AND SCALE 


;PROPER INTENSITY LEVEL. 


DMATRX: MOV TABLEX, MRXADR 

ADD #8064. ‘MRXADR 

MOV #64. ROWCNT 
DISLOP: MOV JMRXADR, Re 

ADD #2, MRXADR 

DEC ROLICNT 

BNE CKVALU 

MOV . #64. ,ROWCNT 

SUB ° #256:,MRXADR 
CKVALU: CMP Re. THHI 

BHI OUTLIM 

SUB THLO 

~ BHT SCLCEL 

OUTLIM: TST OTYPE 

BNE CHDN 

CLR RY 

JMP APLD 
SCLCEL: MOV CPERL,R1 

MOV #6, R3 

TST OTYPE 

BNE 1$ 


TO THE 
THEN DISPLAY IT ON THE SELECTED DISPLAY 


;BEGIN AT TOP LEFT ROW’ 
s OFFSET TO Abe Wat MATRIX 


OW 
Oey A CELL vate rome MATRIX 


PRESET NEXT ROW COUNT 
'SET UP FOR NEXT ROW IN MATRIX 
sCELL age HI THRESHOLD? 


;SUB LOW THRESHOLD 
:BR IF CELL ABOVE LOW THRESHOLD 
° DISPLAY 
;BR IF VTOl 
;SET CELL TO LOWEST INTENSITY 
: vr BIT 
W EST FOL ISH. vy! INTENSITY LEVEL 
SCALE TO ELS 
;IS ITA vevol Ore LAY? 
:BR IF NOT 
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DENCB.P11 INITIALIZE THE COMMON TAGS 


1088 903336 095303 , pes R3 sSCALE To 1g LEV LEVELS ON VSYOL DISPLAY 
tBat Bpssuo  BbeoRs Aeioop: ASL ORM ; UL By" 

1032 003344 O20201 CMP R2, Rl : COMPARE THIS CELL TO LARGEST ‘DIVIDED BY 2) 

1933 903246 103404 BLO NODEF :BR IF SMA 

1034 603350 095701 TST Ri ; CHECK ease LTHERE 0 DIVISOR 

1935 903352 001401 SEQ 1$ IF SO ’ 

1036 003354 005204 INC RY ACCOUNT FOR GOOD SUBTRACTION 

1037 093356 160102 13: Sus R1,R2 ;NOW DO THE SUBTRACTION 

1038 903360 900241 NODEF: CLC 

1938 003362 OO600i ROR Rl : MAKE DIVISORS SMALLER 

1940 003364 305303 DEC R3 COUNT POSI 

1041 003365 001365 SNE DVLOOP :AGAIN IF NOT SCALED TO 16 OR 32 LEVELS YET 

1042 003370 180102 SUB RI. Re ?ACCOUNT FOR REMAINDER 

1043 003372 10140! BLOS GOON : BR IF TOO SMALL 

1044 003374 o0S5204 ° INC RY : UP 

1045 003376 005737 001254 GOON: TST -, DvYPE shHAT DISPLAY? | ° 
1048 o03492 601449 BEQ MAPLD ;IF VSVO1 GO LOAD M 

1047 003404 - 006304 ASL Swe ?MAKE LEVEL @ LORD PDINTER 

1048 003406 O1640S O11364 | MOV LEVTAB-2(R4),RS :POINTER TO CORRECT LEVEL 


1049 O03412 06204 ASR R4 | sRESTORE ACTUAL LEVEL 
CO3S41% 001410 BEO CHDN ; IF z - DON’T DISPLAY 


10S2 ; | ; THIS CODE DISPLAYS EACH SCALED CELL ON THE VTO1 (ONE OF 32 LEVELS) 


1054 003416 013700 0913C0 MLOOP: MOV XREF,RO ;GET READY TO DISPLAY < 

1055 OCO342e 013701 pats MOV YREF R11 THESE ARE THE CORNER soOey- 
10S6 093426 004737 le JSR PC, GET :GET A POINT AND DISPLAY IT 

1057 99343e 005304 DEC RY :D0 AS MANY POINTS AS THE LEVEL 
1058 003434 001370 BNE MLOOP ? 
1059 003436 062737 OOCO4O 001300 CHON: ADD #32.,XREF \ 3: SHIFT yy NEXT POSSISLE DATUM 
1060 903444 005337 001274 DEC “HORT2 * :DONE WITH LINE? 

1061 003450 00127) TSL :NO 

1062 O034S2 012737 000100 d01274 MOV 100 HORIZ RESET LINE COUNTER 

1063 003460 005037 001300 CLR XREF :D0 CR : . 

1064 003464 162737 900030 901302 SUB #24. , YREF 300 LF . 

1065 003472 005337 001276 DEC VERT ;DONE PAGE? 

1065 003476 901256 BNE DISLOP NO. GO BACK FOR MORE 

ine. 003500 000137 O03652 DISDON: JMP PATWRT - YES, GO DISPLAY PRAMETERS 


1089 ;THIS CODE DISPLAYS EACH SCALED CELL ON THE VSVO1 ‘ONE OF us LEVELS 


1683 O00354e 006037 O0le72e ._ ROR PIXASM ; 


1084 05546 006037 001272 PIXASM 


1971 003504 013700 001266 MAPLD: MOV MAPADR, RO :SET UP BIT MAP ADRS 
| 1972 093510 005704 TST RY :LOOK FOR NO INTENSITY 
1073 903512 601401 BEQ i$ .  $BR-IF NO INTENSITY 
i 1974 603514 O05304 DEC RY OFFSET TO O-1 
1075 903516 000304 1S: SWABOCORY PREPARE FOR PIXEL’ LOC 
1076 003520 006304 . ASL RY :MOVE TO TOP 4 BITS 
1077 003522 006304 pst RY : ; 
| 1078 003524 006304 3 RY ; 
1079 003526 ASL RY 
1980 003530 O00241 cle :NOW ASSEMBLE THIS PIXEL INTO" PIXEL WORD 
1081 003532 006037 001272 : ROR PIXASM NOW MAKE ROOM IN PIXEL WORD 
| 1082 003536 008037 401272 - ROR PIXASM : 
| 
! 


a ee Te —T 
SBBVKREOR EE SSOVERLOV Soo Nos wow- OBO Lowe 


001272 
001270 


001254 
012000 


000006 
000014 


001340 
001246 


90674 
905726 
006704 


MAINDEC-11-D2NCB-C GAMMA 11 EXERCISER MACYLL 271732) 
cB. P11 INITIALIZE THE COMMON TAGS 


* 001270 


001265 


175322 
COL Sas 


001339 


006724 
CO6724 


006724 
006725 


061246 
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RY — ;ADD THIS PIXEL TO OTHERS 





TST PIXCN sALL 4 PIXELS DONE FOR THIS WORD? 
BNE *B 
MOV PIXASM, RI ‘LD PIXEL WORD INTO RI 
ISR PC, DISPY sLORD BIT MAP 
23: DEC PIXCNT :COUNT PIXEL 
SPL DISLOP -BR IF 4 PIXELS NOT ASSEMBLED YET 
CLR PIXASM “CLR PIXEL ASSEMBLY WORD ; 
MOV re} PIXCNT *RESET PIXEL COUN 
INC MAPAD ;ADVANCE MAP ADRS 
MOV TAPACR RO ‘LOAD INTO RO 
CHP #5770, R0 ioe te ALL 64 ROWS BEEN DONE? 
IMP  PATWRT "NOW GO DISPLAY PARAMETERS 
33: BIC #177740, RO :SAVE ROW POSITION BITS 
CMP #30,RO_ NOW L 00k {oR END OF 
BNE 4S :BR IF T AT END 
ADD #20, MAPADR ‘ADVANCE Onae ADRS TO NEXT ROW 
4s: INP, OI ISLOP :GO GET NEXT MATRIX DATUM 
;CODE TO WRITE PARAMETER DATA AT BOTTOM OF SCREEN 
PATWRT: TST DTYPE? WHAT DISPLAY? t 
BMI is - :BR IF VTOL 
MOV #12000,3VTVPOS :VSV Mf - SET CHAR POS,LINE 26, LEFT MARGIN 
BR 2g :START 1ST MSG 
1S: MOV 6, INCXY ;SET CHARACTER SIZE 
MOV #14, aVTCSR MODE 
< MOV #0,8 SET TO LEFT HAND MARGIN 


AND Y LEVEL 
;"CR,LOWER THRESHOLD” 


MOV #394. Bae P 
2s: JSR FC, V VT? 


MOV THLO, DUMMY! 
JSR PC, AWRIT 
JSR PC; VTWRIT 
MESS2 


HOV THHI, DUMMY 1 
JSR PC,AWRIT 

JSR PC, VTWRIT 
MESS3 

MOV aNCZLO, DUMMYI 
MOV JNCZHI.DUMMY2 
JSR PC, OTTY 

JER PC) VTWRIT 
MOV. TOTSIZ, TEMPO 
CLR Re 


;"CR, UPPER THRESHOLD” 


3"Z COUNT =* 


;"MATRIX COUNT=" 


CLR R3 
MOV TABLEX,R1 
ADD (RL)+,R3 


MXSML: NOW ADD UP ALL VALUES IN MATRIX 


JSR PC; OTTY 














DeNSE Pl 





001320 
006246 | 


Win 
Oo 





b- 2 b= = bP 2 ps 
+: 


iA tt bet tt 2 


006246 
001342 
002154 


4134 913777 001316 
001732 





005536 
001254 


RE 


073567 


Socgcces FES 
BRE INEOS 


aa 


007740 
001262 


PUR ESTO Bop VOU EO 90) NIGTUT Odd CouDeD UOTE GOO EO SEO 





001346 
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OC1349 o40009 15: C 


175034 


174716 
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TST GAIN 
BEQ 1$ 
see PC, VTWRIT 
S ;"Z00M™ 
_— , WMATRIX+#20000’ Perec 8? 


JSR PC, VTWRIT YES | 
S MMA” 
28: TST FREERN tIN FREE RUN MODE? 
Q $ :BR IF NOT 
IMP ROUTF YES GO GET te DATA 
38: MOV COMSAV, JNCCSR RESUME THE 
IMP LISN : DONE ArT MESSAGES * 
THIS CODE DRAWS A BUG(VTO1) OR CROSS narescvsvons WITH THE X 8 Y DATA 
FROM THE NCLI(TYPE ’K’ OR DEFAULT) OR THE ARLI(TYPE °J’) -,THE BUG 
ETC. WILL FOLLOW THE JOYSTICK WHEM THE IN TERRUPT BAR IS NOT DEPRESSED - 
SALL PARTS WITHIN THE DISPLAYED BOX ON THE SELECTED DISPLAY SHOULD 
:BE ACCESSISLE IN A UNIFORM R 
;@ CTRL *C’ WILL GET USER BACK TO KEYBOARD MONITOR . 
tJoY: JSR PC, ERASE ;START FRESH 
TST DTYPE WHAT DISPLAY? 
BNE JBOX! BR IF VTOl 
-DRAW A BOX UP ON VSVO1 SCREEN FOR. NC11 OR ARI JOYSTICK CALIBRATION 
BOX: CLR 0 : UP BIT MAP ADRS - TOP LINE 
#73557,R1 ‘SET tp PIXEL DATA IN R1 - INT 7? 
TSR PC, DISPY ;G0 LOAD BIT MAP 
1S: INC RO “ADVANCE BIT MAP ADRS 
_ Mp #40,RO - *TOP LINE DONE? 
BEQ 2s “BR IF SO 
ISR PC, DCONT ;LOAD NEXT PIXEL 
BR 1$ XT MAP LOAD 
25: MOV #7740. RO :SET UP BIT MAP ADRS - BOT LINE 
JSR PC,DISPY - *GO LOAD BIT MAP 
3 INC RO s ADVANCE ADRS 
CMP #10000, RO ?BOT LINE BONE? 
BEQ 4 °BR IF S 
ISR PC, DCONT sLoRO NEXT PIXEL WORD 
BR =NEXT MAP LO 
4S: MOV #40, RO ‘SET UP BIT MAP ADRS SIDE LINES 
S$: MOV #7,R1 ; SET UP PIXEL 0 DATA IN RL -.INT 7 
JSR PC’ DISPY :30 LOAD BIT MAP 
MOV #70000, R1 :SET UP PIXEL 3 DATA IN RI - INT 7 
ADD 7 RO “OFFSET TO RIGHT SIDE LINE 
ISR PC, DISPY :G0 LOAD BIT MAP 
INC 0 360 TO NEXT ROW ON LEFT 
CMP #7740, RO ;10 BOTTOM YET? 
BNE S$ F NOT 
MOV VTVSAV,QVTVCSR ENABLE BIT 
BR DISBG CONTINUE TO MANALOG DATA 
sORAW BOX UP ON vTOL SCREEN - DIFF SIZE FOR ARLI JOYSTICK CALIBRATION 
SBOx1: TST ITYPE ;AR11 ANALOG SOURCE? 
BMI JBOXe :BR IF SO 


t 
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INITIALIZE LE COMMON TAGS 


4 
5 
UC 


Zone SeeS § 


u 
wo 
| oll | 
bo pe 


RO ;X=0 
Ra 5X50 
005676 1S: FC, DISPY1 ‘OI PLAY POINT 
003761 #3761 ,RO SOUT TO RIGHT LIMIT? 
BNE 1$ BR IF NOT 
RO X=3760, Y=0 
005676 : PC, DISPY1 3DISPLAY P POINT 
003761 MP #3761,R1 ; UP TO Fo YET? 
BNE Fa} RIF NOT 


Son 


ois 


“RI - $X23760, Y=3760 
005676 : sR PC ,OISPY! ;DISPLAY pont 


VANC 
3$ :BR IF hot fo TOP LEFT 
5 


NC RO ‘X= 
005676 7 PC, DISPY1 DISPLAY POINT 
RI DVANC 


4g *BR IF NOT TO BOT LEFT - 
DISBG ‘CONTINUE TO ANALOG DATA 


+;,AR11 BOX IS LARGER 
 JBOX2: tt R RO X=0 


Rl ;Y=0 
1S: = PC,DISPY1 i Rovance POINT 
} #3771,R0 SOUT TO RIGHT LIMIT? 
1$ sBR IF wee 


0 02 bo 2 Bs hae fs pee pe 
MH—OwWO* 87 iNcUtreHO 


4 5 


RO =3770, Y=0 
PC, DISPY1! iOTSeLat POINT 
#3771,R1 iUP TO oP LIMIT? | 
2s after 


= 770 
PC ,DISPY1 est point 
3$ BR IF Nor 10 TOP LEFT 
RO *X=0, Y=377) 
PC, DISPY1 Oram ar P POINT 
BR IF ot TO BOT LEFT 
OG DATA FROM SELECTED SOURCE (NC11 OR ARLI? 
sWHAT SOURCE? 
ARI 
FEXT. JOYSTICK & ENA ADC 


CLR’ TIME OUT IF SET 
Boe? CONVERTERS 





i] “,*. 
use 


NEGs 


UrUnsiuy 


aowuw) 
*-O.0M 


Cre ereereeeCepPestestesteree 


fu 


*0-©6-+0-<8 <6 <6 <§-<9-< p< 9-09 « 


€ 


a ed ed 
ufurut 


Saul tanec 


Panees 


<6 <6 <6 <f--9-09 © 
aw 


furor 


7 


ee 


© 


Piotue 


tururuorute 


+> +0 +0-09-09- 20-9 0-08 


urutu 
4 


200 20-20 20-5 bo hd 2h op ee 


LOCI GIGI CUCU COTUPU TU FUPUTULU TU PUL 


fo QOMA LE tOtU! -C bio deh e toluene. 





Mal! 


Li-DENCB-0 
Pal 


OC4S44 


SEF al 
COsU4o 





oaMMA il 


INITIALIZE 7! 


905137 
snes 


Gtanepies 


Bo 
Stet eter ats bstt bs 


: 


605157 


001354 
SSi3e4 


909207 
0052°°4 


001254 
001254 


O0 i246 


ett one er. i 1$:32@ PAGE 27 


= 4 
“he "DD 
> Oo 
» 


sTHIS CODE LOOKS AT 


m 


me ee ee ee 


En get on NO CONVERT? 
-BR IF BETL NOT..CESIRED 
:SET US BELL CODE 
G0 ZING BELL 
:GO TRY AGAIN 
ior ORE CONVERSION VALUES 
MASK OFF BITS 7 
60 AvG LAST 32. hoy JOYSTICK VALU 
:CLEAR JOYSTICK DEPRESS FLAG 
i004 FoR pRUTTON Bou COW 


; F NO 

eet MOVE gone: SUT REFRESH 
3NO — ON ysvor. 

sMUL BY 2 

:LL DONE SCALING IF yvSvCi 
s INVERT DATA FOR VTOl 

sRIC GARSA GE 


2 i 5 
: + 


o-- 
-- 
—<— 


ger u MO 
tae Y THE BUG - VTO! 
Of 


SPLAY CROSS HATRS - VSVai 
ANOTHER CONVERSION 


ARi1 FOR ANALOG DATA 
;SELELT CHAN © S$ UNIPOL 
ree bles S ‘D- CHAN G 
SELECT SG 

°GO START yn - CHAN | 
:SAVE xX 


OOoodcw 
OQOQoaom 


° E T 
:G0 START AD = CHAN 2 
EAD JOVSTICK BUTTON INDICATOR 





;PUT Y IN HI av 

sAND X_ IN LO BYT . 

:G0 AVG LAST 32. X-Y_JOYSTICK VALUES 
;LO0K FOR BAR DOWN (ZERO COND) 
:BR IF NOT DEPRESSED ¥ 
:D0N'T nove POINT SUT REFRESH 
;REFRESH VTO1l 

3NO NeD ON vSVO1l . 
sEACH DISPLAY SCRLES DIFFERENTLY 
:3R IF vVSVOl 

sINVERT FOR VTOL 









‘701 "e0 UIRES X 8 Y TO BE INFLATED SY iS 





me mm ee mes eee eee ee 


DRINGESSLI-DENCE =< 88 SANNA 2 ay ERCTEER 18 MACYLL 270732) 21-SEP-76 15:32 PAGE 22 — 

DONCS. Pil INITIALIZE COMMON TAGS 
303 Soeees THA SER vs Terroir iET 

Xi ww ae ‘ odie’ “4 i ’ + 

13! 355 a3 ‘s as iSFaLE x py 8 
iH ane: She Ace 3 
13:3 905960 906309 ASL 
1314 005962 pe SC ASL ; SCALE Y BY 8 
i3is 905064 90639! asl RI 
1316 905065 » 006301 eee asl RL ; ee 
13:° 095070 - Oie77? go00eD” 174136 OV #20 ayTCSR SELECT WRITE THEU MODE 
131g S0S507E Oos7ar ddse76 38: JSR ss BC BISPY! :G0 DISPLAY THE BUG - /TCi 
1319 965102 Oo0r12 88 1$ :D0 AGAIN : 
1326 (355i54 SosTSF ocsrze “3 Tsk BC DISPv2 G0 DISPLAY CROSS HAIRS - /SvO: 
$361 0055230 S6ord7 ss 18 :05 AGAIN 


NN eeeEeEeEeEeEeEE—eEE 
° 
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MRz a ieee 


.S8TTL PROGRAM SUSROUTINES 
rtreiistrerecrisreririttrrtetirttritiritrtitiirttiiiitisttetied 


v8.8 
€ 
g 


2 
3 
be 
5 


isttitiae ¢ 


Sy 


ulna 


BRA 


20 <6 +b 6-6 <0 -- 0 ~~ 6-9 © 8 & op < &-< 9-0 §-o 9-2 9-0 


GILIG) 


Sete Ee EES 


ae 


rR UacwueL Oise Les Luare 


nee Cal 
& 


-- 


ti 
oee 


BERRVES , SeERRVEC 


eg 


i | 


i 


ROUTING SELECTS VSv0l DISPLAY ° tS - BUS ADRS AND rr te th 
AND INTENSITY LOOK-UP _T 





ABLE - THE CARRY BIT IS SET ON EXIT IF 7 
:VSVOl TS NOT SEEN AT THE ASSIGNED BUS RAODRESS 


ta UIA nae WNL te ae 


3GET VSVO1 BASE ADRS 


T UP REG ADRS PTRS 
: BUMP REG ADRS 
CHAR GEN REGS ALL SET UP’ 
;GET BASE _ Ba ,biT MAP 
ING 


3US 
sPOINT TO @ND SIT MAP ADRS'S 
CONTINUE 79 ie MAP ADRS*S 


T uP BUS tp, ae RET URN ADRS IF NC 
HARAC a GENERATOR THERE” 


ae 
ae! Ue RS_$ DATA OF INTENSITY ~ SOK -UP TABLE . 


;ROVANCE ADRS $ INTENSITY 
iT LA ed 
iStyPe=d. $A FareNs yayF 


erie, ees 
: ZERO a ay ped | JSvQr THERE 


oe 7a gs? oo & 
~ 


ETS x go cK S sNCE NE RTI sai 
4 oN exits ‘S NO VSVOL 
SP Ext? 


eee ROUTINE SELECTS VID! DISPLAY © SETS OP SLs aoke ann INTE 


CUGMIGIYD 
SOP 
-“o.000%) 


: 


ea : ae 


IEICE 


oo 


SPLAY - RS at 
BA ENGY IF Soe veoh is sot seen ae 


snegonbansenensensnsnsersscevonncoseeg| n PREPERES HETERO RSERSER 


thineay 


on 
~ 


§etdrde ute 


*0-*+0 +O +0-+0 <6 20-+6 06-20 © 0-+0-20 <b /°0-2) 20-08 -->- 26 + h-0)-—§ +) <6 —>-<§ @ §-< §-<§ -< 9-0 §-< 9-2 H-0 Bo 


Caeser dart 


rr i 
som 


BERRVEC +2, pend” Est one 
EXIT 


1 Tg: BASE ARS 
: +P yr REG ACRS PTSS 





aa VTO1_ TIMEOU 
ats et 


<b, 
102, THERE 
Lod 4 PTR TO PT TOS 


GERD cae 


SBA 





4 oe he wt 





MAINOES=12-D2NCS 





DoNCB.PL) eRogham 
Awe pheses §panaee 
i352 S5egeg ShSS8 
1381 
1383 
1383 
i3e0 
i352 oosase 013700 
see bess SiEchs 
1353 595366 010921 
1388 B95370 62750 
7354 Q08374 425701 
136) 505400 O91372 
1393 Dosude ioea> 
1393 06410 o060>7 
i334 apstis Ee 
t3ge BpeusG Brosas 
136? O05u32 995207 
1348 §06434 000561 
1398 O05u3g Soorrs 
1400 
Tadt 
1453 
14D3 
1454 oos44o o12777 
russ Saeuue | AESTTP 
ade BAEucy AES>77 
twa? B56u—2 880257 
The 
745 
i4i6 
i4ii . 

T4i3 DOSHes 917737 

sata Bazeon owas 

fuie ESeESS SEESG> 

i416 ) 

i417: 

1419 

i426 gossoe > 
Sw 

t455 Boeesy | BOESSR 

t¥o4 80552 020027 

i425 BOSS32 091374 

twee COSI 900207 

1439 

1459 

1454 

7451 COSE2 905737 

1652 Saeeqs 165017 

i433 S0Se4s C1277 


000004 
O01 34¢ 
o00004 


i73472 


173462 


MACYS1 27.732) 


3f: CMP (SP)4+,(SPi+ 


BR 2s 


« etieamatataga te hn a be o ae hah tat hdaet ahha aid et ade Stat thi 


21-SEP-76 15:32 PAGE 30 


iran STACK SINCE NO RETURN 
oney Ue al SAYS NO YTO1 SISPLAY 





as pa AND ah ee net pone 8 FOR F Bhs JOYSTICK CALIBRATION 


T ON ExI 


eqgenetessontessansnnesenenesnenscanssenetansegsoesonssesosss 


bar ete: MOV ARAD :GET AR11 BASE ADRS 
MOV BaRecA By : GET 
18: MOV RO, (RiS+ :SET UP REG ADRS PTRS 
aoc RO :BUMP REG ADRS 
SMP steno, Ri ‘ALL SET UP? 
BNE :BR IF NOT 
Moy 438 DBERRVEC SET uP TINEQUT RETURN ADRS 
MOV s ITYPE : STYPES< 1 SAYS USE AR 
cue ARRY ZERO. SAYS ARLL I 
2S: MOV gERRVECH2, ONERAVEC STORE LOC 
is 
38: SEC tRARRY SET SAYS THAT ARILL IS 
BR 2$ 0 EXIT 


:ensnenasapresenensracentesasseanitassaaeseanaeasaenesenestees 


OUTINE STARTS NC11 AT 


SELECTED GAIN 


senosunkeatasotutveesterssunsunstecceoersaonessnenennenepetcons 
SET is tty MATRIX AND ACC ENABLE 


distRT. MOV #1001, INCCSR 
BIS GA 
B33 aetTl. INCCSR 


:SET GO BI 
: RETUSN 


; HOOPRREREEEELEEUSHeAntECeusenuanenEnenEssEeEneEEEERTietttS 


OUTINE STOPS NC11 AND SAVES NC11 STATU 


, esssusbousdeerarannsnaseeeseessaueaeesaeetassasteneeaesssennees 
NASTp. 


OV aNccSR COMSAV 
gic NcCCSR 

CLR aN Ses 
RTS PC 


ME ee INTERFACE ACTION 
ZERO ALL STATUS 
;RETURN 


weecmee 5 ea ee oes 
UTINE STOPS NC11, SAVES STATUS AND CLEARS MATRIX CORE ARES 

anaveotauniteetteaneitbetsaaertergteecerttnnert astm 

Q STOP NCIL th SAVE STATUS 


AaStP PC .NCSTP 
eto SNCSEUN 
MOY aMAT TRIX 
iS: CLR (RO}+ 
CMP RO, aMATRIX#HO000" © 
BNE § 
RTS C 


igeRo Z_REG 
GET 


LOUN 
SET TC ZERO "sore MATRIX SRER 


;ALL DONE? 


IF a MORE 
BR PRN 


PUUTOTTCTTTCTTTCTTTTCTCOTTTTTTTTT CTT TTTTTETCCTTTT TTT TCT TT eCeTT! 


sROUTINE WILL ERASE DISPLAY (VSVO1 OR VTO1) 
qe I 


bhase: TST DTYPE 


BPL es 
MOV $16, aVTCSR 


3BR I 
: ERASE OISPLAY 


~ 


“ a 





t 
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D2Ncs.P PROGRAM SUSROUTINES 
1434 ‘poss 995937 901246 ae cu is" - ‘5 bor gots ERASE WAIT LOOPS 
1436 Bosco Rass ? Boise 18: DEC Te enP iC uN AMA 
1437 005570 001375 BNE | FILL ” es 
1438 905572 005337 oc1250 DEC TEMP : 2ND “LO0P DONE? 

1439 005576 09137 BNE 1§ :BR IF NOT 
1949 9056 0414 Es 4§ L DONE - RETURN 
144] 005602 OSe777 001009 i73412 2s: BIS #1000, IVTVCSR ‘ERASE DISPLAY (CLR BIT MAP: 
1442 005610 105777 173406 33: TST8 © avTVCSR LOOK FOR READY 
1443 905514 100375 BPL WAIT FOR IT 
1444 005616 O42777 OC1009 173376 BIC #1000, VTYCSR TURN OFF ERASE DISPLAY 
i445 095624 Jie777 902035 173362 MOV #2035, aVTYCRG CLR CHAR BUFFER & DISABLE CURSOR 
f#48 008832 SO0207 48: RTS PC -  gEXIT ; 
1448 5p ERREESFRERLLE SE SALAS SSSA LE SEAL LA LEER RLALE SELES EES FLEES +E SESE 
i848 ROUTINE WILL LOAD BIT MAP (VSVO1) 
1458 :RQ CONTAINS BIT MAP ADRS AND R1 THE BIT MAP DATA 
1451 peeueannegnnnacnaseseceuonsunaneeyseeeneeseeeenenennEnneennOees 
1453 C0S634 O4e777? OOOHOO 173360 dispy: src aVTVCSR sSTOP DISPLAY 
1453 905642 019077 173356 MOV RO nite ‘AP OAD BIT DRS 
1454 005848 O42777 990400 173346 OCONT: BIC #400 avTVCSR :AGAIN- IF ENTERING HERE 
1455 OOSESS los777 173342 i$: TSTB TVCSR s READY? 
1455 005660 109375 BPL is THEN 
145° 905c62 C1917? 173340 MOV TVPX toa Ss BIT 
j i458 505666 OSe777 600453 173226 BIS 2400, avTVESR IRESUNE DISPLAY 
1458 74 000207 RTS :RETU 
T61 5 5 RERHEERSSESLAALESSEASARLALASFFERALELALALILARALALARAAA ASF LLL ALAS 
1452 ROUTINE WILL DISPLAY A POINT (VTO1) 
1463 i sageusshontakebead ttekthetanmanstonnanttesesusinentminansia 
| 1464 OOSE7TE 108777 173532 Atceyi: TSTB VT cSR sDISPLAY READY? 
| i465 S05roe 00375 BPL  - DISPY :WAIT FOR IT 
1466 005704 O42799 174000 BIC 3174009, RO RID GARBAG 
| 348? SoS710 428791 174909 BIC #174000, R1 ?RID GARSAG 
| 1468 905715 O15077 17331 | MOV RO, IVTXDAC :SET UP X DAC 
| 2485 808720 019177 173314 MOV Ri aVTYDAC :SET_UP Y DAC 
| PEEP S087e8 D05EDr. RTS = PC’ ;EXIT 
} 137 ‘s Nie tte ht gt tity areal ant ant 
| da73 OUTINE WILL DISPLAY X & Y CROSS HAIRS ON VSVO! 
475 sitagilatkattheatttelictertdiebcoiectaintem ian 
| 3475 gers 39 172282 Aispye: TST | aVTVCRG ;READY? 
147 per se 10375 BPL DISPY2 :WA T 
ia77 6005734 105137 co124e CO! TEMPO: sx NEEOS TO SE INVERTED 
1478 905740 9:3 OCLEYE 173259 MOV TEMPO. VTVCHP ;LOAD X $ Y CROSS HAIRS 
| 4879 S0S746 OSe777 GiEGOS iPsENe SIs arecot. SVS (ORG ENABLE THE CROSS HAIRS 
+ gage StS 754 600297 RTS = PC ; RETURN 
' 3482 pUOHEESOSNOSSSRESNSESSEReERSeseReesonnpeCoREseEasooreensEeenens 
| 3483 ROUTINE WIIL FILL CORE WITH_AN IMAGE THAT WHEN 
i 3484 'DISPLAYED WILL CONTAIN ALL. THE INTENSITY LEVELS = 
ES ~ GROWS AT THE BOTTOM OF THE SCREEN WILL APPEAR BRIGHTEST - 
1436 ;NOTE THAT THIS IS ONLY A DISPLAY TEST PATTERN 
1487 :POSSIBLE DISPLAY ADJUSTMENTS BY THE USER 
iss + SAEEEEELAESERERESARARERASARESEERERRAERERARREEED AR AEEEEE REET E RARE 
1485 OCOE7SE »012790 coc190 itimce: Mov #100,RC ;COUNT 64 ROWS. 





oe ee ee ee oe eee 





NES }L-DINCSE n 


494 
3% 
$ 
3 
3 
c 


NUNN ee 
De-- 010 


Sri eist 


ete ea arate 
TUt- 0-2 0-< 0 + 0-20 00-2 0-8 (90 IC 


~02.000°30 U1 £osfue--(9.000 ~) 


nit 


0+ + > +0 0 b+ 0 0 0 = & = 0s + 2 2 0 8 D8 8h = 9 0-0 2 hh 2 9-0 Fo 2p wpe 


SVCOVUSUCFVCFTUITU 


fort 
wo 


A 
UGIGI 
orue-i9 


PUNE 


0-20 +0 60-0 0-9 0-- b 0-2 & = 0 8-- b+ 0-9 bd 


CAUNUN UNTO ONTO UNO ONT OOo 


4.4. 4 CWI) 
in. dufue-09.000) 
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Muy TABLEX RI 3067 SELECTED Ts ISOTOPE Ha 
Mey 4D. Bg HOU WaEL REPRESEN? AIGREST dnreneiry .£vL:100-0) 
1$: MOV aa 

DEC Re BONE Rone 

BNE :BR IF NOT ns. 

HEC Ro | :DONE ROWS? 

BEQ 2g ;BR IF SO 

SUB #1,R3 ‘LOWER NEXT CELL VALUE 

MOV #140, 82 RESET ROW LENGTH COUNTER 

BR 13 :LOAD THIS ROW IMAGE 
23: RTS PC :RETURN FOR DISPLAY 


jp PRRRRARAREAEREREREEERSRESEALEAE EEL SR ERE EEREEELAD EE EEER EES EERE Ot 
sROUTINE WILL 'DO A CONVERSION A CHAN # IN “ARCHAN’ 
sEXIT WITH CONVERSION VALUE. IN R3 





LSEPASEEAEAER AE SEEEEEEREES OOREEEERED REDE REELED RR REE ERE EERE SEES - 


bisony: TST JARBUF ;CLR DONE FLAG 
MOV RRCHAN DARCSR 36D CHAN 8 HNTPOLAR SITS 
Bis #1 aaRCS g :START A/D 
18: - TST Shade sLOOk FOR DONE 
SPL 1$ :WAIT FOR IT 
MOV SAaaLF R3 :GET VAL! 
348 #500.R :OFFSET VALUE 
he #177400, R2 ;SEE IF OUT OF RANGE 
BMI 2s ;BR IF TOO SMALL 
BNE 33 :BR IF TO LARGE 
gS 4g :NORMAL EXI 
23: CLR R2 :LIMIT TO G 
2 R - Bok G0 EXIT 
33: MOV 8377,R3 :LIMIT 10 377 
38: RTS c EXIT 


5 SHEAAAPSEFLAFARAAERELELELLELAERLET SHES LERAALERELARSLLSLFLELAIAE 


;ROUTINE WILL DISPLAY A CHARACTER (VSVOl) 
 sanenel eae gllit CIGRLRY A OMRIETEA (VSVOL) a seensasensee 


AinaR: TST avTVCRG ; READY? 
BPL_- CCHAR WAIT FOR IT 
MOVB 3, aVTYCRG ;LOAD CHAR 
RTS PC 3EX 
jRRRERAEREAEAPAEE EEE LAERRERAAAE AAR ERESEREERRE ERR RARE ATHLETE EE 


t XEYBOARD INTERRUPT SERVICE ROUTINE 
SHAPE EER EL RARE FELL FE EEES EPR SEERA ES LALERE THEE SER ELH HSS SLES HHH HEHEHE 
iBINT: Noy O$TkB KBUFF :READ KEY BOARD 


#200, KBUFF :RID PARITY 
CMP #3, KAUFF ?CNTRL °C? 
BNE 1S. ;BR I T 
. ‘id LISEN ‘ABORT WHATEVER $ LOCK FOR NEXT COMMAND 


i SHERELEPEPERELLELRALSRAHLEL LALA PPELHLLLLRUAAPH HAHA LHAERLLEALe 
‘AGUTINE TYPES °CR' AND "LF* OR CHAR IN TTYOUT 

h-5-Shchalaheh-ielalatelaleleieh-tal-t-eh-tel-telelabalelelelaleleleloieieiel--1-inhei-tel-t-t-lel-tebd->lebioleheiele 
Heer: Ov ~ rie , TTYOUT :SET UP FOR A 


mn a i ee 








a Ee fee” 


DeNcB.P 


ow 
ys 


UMNO & 4: 
-(2.000~310" 


tru 


: += 0+ 0 0-2 
pa a a ta a tl 


00516 


Oo&=2 
906210 


poestG 
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2 901319 
0 


=—-- 
lrer42 


tends tated 
etme 


ae 
y ee) 


005676 


poccos 
909052 


one 


091254 
O08 156 
022703 o000i15 
coosde 
090912 
000088 
903304 


990034 
006462 


001326 


001339 


CO&4E0 
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;SET_UP FOR LF 
:WAIT FOR LAST CHARACTER 


;SEND IT OUT 


MOV #12, TTYOUT 
TYPO: TSTB_astPs 


PL TYPO 
ney ja ere 


RSitiiitiiiitiiiiitiitittttttitteereretee 
MET IS A SUBROUTINE TO GET AN : Y ati FROM THE 
: CODED LEVEL MATRIX,DISPLAY IT A 
~sesensbeaseesansehssnsssTesnenseesrinieraneanneneneeoseensnteee 


ier, MOVE (RS) Re :MOVE A BYTE OF x X AND Y 
are a777ey, re a vate te 4eX 
2, RO :ADD TO CORNER VALUE 
MOVE (RS)+,RE. MOV SANE BYTE AND BOKE POINTER 
av (¢U, 
p R2.R1 10 Bo Vays Is 3 
ADD R2,R1 -ADD TO CORNER VALUE 
- SR PC, DISPY1 :GO DISPLAY POINT 
RTS PC :RETURN TO MAIN 


inte CUBROUTINE 16 CALLED WITH THE ADDRESS OF a HFLERALAFAFAS 


| furs SUBROUTINE IS CALLED WITH THE ADDRESS 0 


sMESS TABLE FOLLOWING THE CALL. THE MESS ace * 
; TABLE CONTAINS A LIST OF POINTERS TO PHRASES. 
;EACK TE See WITH A 200 BYTE. THE TABLE 


s REREEERAELEE ARERR EEE ELE LER ERR ER EERE ERAAEEER EER ARERR AEE ES EEE AES 


VTWRIT: Mov a(SP) RS :GET QODRESS. 0 OF MESSAGE IN RS 
ADD #2, (SP) ADJUST 
VTPL:  TS7 Pea :LOOK FOR TERO AS TERMINATOR 
BEG VTHDON :3R IF MSG DONE 
MOV (RS)+,R4 ;ADORESS OF PHRASE TO R 
VTWL: MOVE (R44 Ra THIS IS LETTER TO. BE BISPLAYED 
SMI VTPL :200 18 THE TERMINATOR 
st BTYBE ;WHAT DISPLAY? 
BNE OVTO! :8R IF VTO! 
ISR PC, DCHAR :G0 DISPLAY CHAR VSV2! 
BR VTHL $0 jL0OK AT NEXT CHAR 
DYTOi: CMP 815,R3 
BNE 1§ SR TE NOT 
MOV 89, BASX “RESET MARGIN 
BR VTWL 60 GET NEXT CHAR 
13: CMP #12,R3 LF? 
BNE VTEXCP OR IF N 
Sup #60, BASY GO TO NEXT tie 
BR VTWL :G0 GET NEXT CH 
VTEXCP: MOVB R3,KBDSUF : THERE ARE A FEW CHARACTERS 
MOV #34 ° TEMCHR HAT REQUIRE CONVERSION 


JSR PC,BRAN 
ri VTEXCT=I 


‘BEFORE DISPLAY. e 
;CHARCTER IS < 











Se " whew” 


+ 0+ bb = = 0 — 0 b= 0 bho 0-0 op pe 

AARARA RARE AREER RS 
° ~ ~- a) 

WOnIMTiN£OITU-OwWw IPR 


Be ee ttn re mw ee ee 
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OCbEEO O0bEb2 


006422 
O64 15 
206439 
pe4oe 
00420 
> 075 
O76 077 
062737 . 990004 
O2737 COOOC? 
005237 O0b46 
362737 00002 
013703 OO&4E 
042703 177700 
906303 
006303 
2703 012652 
604737 O0ss32 
0g0703 
909207 
900000 
917637 90909 
662716 ononge 
065237 006530 
105777 0002 
01408 
123777 001304 
001365 
817616 ooco00 
900241 
990250 
900207 
909909 
613737 
013737 


OO66E4 O0S665 
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2 
x= 
~) 
u 


eoee ee 
ywee 


BR VIN OsP CHARACTER IS OK AS IS 
sitter -BYTE 74,75,72,76,77,C 


* EVEN © 
CH77: AOD #4, TEMCHR ;CONVERT OCTAL TO 42 
CH76: ADD #7. TEMCHR :CONVERT TO 46 
CH7e: INC TEMCHR :CONVERT TO 2 
CH75: ADD #e SENCHR :CONVERT TO 36 
H74: MOV TEMCHR.R3 =R3 NOW CONTAINS PROPER VALUE 
VTNOSP: BIC Py R3 :C GARBAGE 


;MULTIPLY & BIT OCTAL BY 
et R3 310 FIND RELATIVE POSITION IN TASLE 
ADD SRE R3 THIS IS a POSITION 


ISR xDr$ RAW CHARACTE 
BR vine !AND CONSIDER NEXT 
VTWDON: RTS PC 
TEMCHR: 0 :SPECIAL CHARS ARE BUILT HERE 
: + EERE EE ELLA EAE ELG HRA EEA E HEE EEE E ELLE EERE ER ERE E KSEE EERE REE RR SESSE 
: THIS ROUTINE COMPARES THE CHARACTER IN KBOBUF (BYTE) 


: AGAINST A LIST POINTED TO BY CONTENTS+1 OF CALL+2. 
;IF A MATCH IS FOUND, CONTROL ° TRANEFERED TO ADDRESS 
; N ere _*. ss THE NUMBER OF 


a L. TCH ET T MATCHED. 
IFN MATCH IS FOUND cOnTOL IS TRANSFERED TO THE LocaTron FOLLOWING 


: THE Cast TRANSFER ADDRES 
A ZERO IS THE MATCH Ay Pe" TERMINATOR. 
THE N AND C BITS ARE CLEARED ON EXIT 
SELELESERESS LS REESE LE RE REFS LAL ESSERE SLE EEE EERESEKEL ERAS SEAS SEES THE HR 


Bhan: MOV a(SP).MACHER :GET ADDRESS OF MATCH LIST 
BRANL: ADD #2. (SP) : ADJUST RETURN POIN TER 

INC MACHER >MOVE MATCH 

S7B atInCHER = A ZERO INDICATES END OF LIST 

CMPB KBOBUF , MACHER 

BNE BRANL sNO MATCH. TRY AGAIN 

MOV a(SP), (SP) : PUT TRANSFER ADGRESS ON STACK 
NOMACH: cL CLEAR R CARRY BIT 

RTS PC ‘RETURN APPROPRIATELY 
MACHER: 0 . 


; piereneseeuneceenesnesaenesnenennenaesanaearaanaeniesssaenaess 
sTHIS SUBROUTINE IS USED TO DISPLAY A MATRIX OF POINTS 

;THE ROUTINE IS GENERALIZED AND must HAVE VARIOUS 

:CONSTANTS SETUP BY THE CALLING PROGRAMS. 

;R2 POIN TS TO THE MATRIX CODE WORDS 
55 GEE EE ER EE REE EE RE 


TIXDIS: MOV SHETK SHFTCT :SET SHIFT COUNT FOR DECODER 
MOV ROWK, ROW :SETUP THE NUMBER OF ROWS 









DONC 










ee bit -11-D2NCB-C 
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. 008670 006672 


001326 
001339 


OOSE76 
006662 


001332 
006666 
005654 
001332 
006672 
001326 


09133¢ 
001326 


005726 
005722 


006246 
74 











~ MOV COLK, COL 


TIXL: 


TIXBNO: 


MOV ¢ 
TIXWOK: ADD INC 
DEC RO 


> 


TIXDON: 


s UAREEROAEROAHNREEERESEREEDEEAEOEEOEEANEEAEOEEEARESNEENOES 
H U 
PRECISION OCTAL NUMBER TO ASCII DE 
2 HEHEHE HEHEHE EHH HEHEHE HEHEHE EHH EEE EES 
ANK: 


i 


AWRIT: 
OTTY: 


5: RRRREREEKARRARE EEE EE EE EAERERRER ERA LRA RRERE RARER ER ER ER ERE RS AREA EE 
{HHIS R ROUTINE CONVERTS A DOUBLE PRECISION OCTAL NUMBER IN CORE 
19 AN ASCII DECIMAL NUMBER. 


HE CAL 


ube re Hane 
3M THE 8 ADDRESS OF THE PLACE THE ASCII DECIMAL IS TO SE STORED 
: THE HIGH ORDER uae WORD MUST BE IN THE LOCATION FOLLOWING - , 


THE LOW ORDER WORD 
; THE ORT Ae SHOULD BE CALLED 8Y 


JSR PCA 


MACYL I 27( 732) 


:T0 SUPPRESS LEADING ZEROES AND TO LEFT JUSTIFY THE 
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my Sea Si TE rare ERED 
MOV zoos RI mg dd THE Y COOPDINATE 


CK CODE WORD 
it CARRY BIT at NO POINT TO DISPLAY 
SPLAY PO 


:G0 D 

;COUNT INFO Bits. IN WORD 

BNE TIXWOK : :CODE WORD OK IF NON ZERO RESULT 
;GET NEW CODE WORD 

REFERENCE NEXT POINT 

:DONT GO PAST END OF ROW 

; NON ZERO OK 


SNE TIX! 
MOV ROWK, ROW 


ADD INCXY,R1 :MOV Y UP A 

DEC COL :WHEN COL=0 he WORE DONE_ 

BEQ TIXDON 

NOV BASX, ,RO sRESET X TO LEFT HAND EDGE 
ADD INCXY,RO :MAKE A SPACE BETWEEN LETTERS 


re Be RC, BASX SAND RESET BASX ” _ VALLE 













NE CALLS *ASCIZFP WHICH Sevens A Sina OR DOUSLE 
CIMAL AND THEN WRITES IT TO SCREEN © 


fs 
CLR DUMMY2_ 
JSR PC,ASCZSP 
DUMMY I 

ADUMMY 

JSR PC,VTWRIT 
BLANK 

RTS PC 


L Is JSR PC. ASCIZ 
S Of THE LOW ORDER OCTAL WORD IN 























DINCB.P11 


hh 0 0 b= 0 9 
—(.00 IM uUit-tu 
ietetetetete: 

~“jy~3 
Tu 
ss 


~~ 99993934 


sia 
588 
steduseds 


704 o0o0le 

37 007120 

2s . 

Obe702 oocds0 
52 


0 0-- >< = p< b— b-< & + bb ~~ &— b= 9 -< 9-2 9-2 ps 9 = fp — 9 -e 
sg-3~3~) 
eSupap 
“N 


“J 
iC) 
— 


1733 
1 


Bed 


007070 


o0s737 ° 006720 





1727 
1738 007030 091410 
1733 S037 006730 
1740 907026 1 000059 
1741 007042 001775 
1742 007044 105725 
1743 007046 100001 
1S artes 005295 ‘ 
174S—-Gu70S2 017600 900000 
1745 O80 062716 00002 
1747 007062 114520 
1748 007064 100376 
| 1750 OO 
17Se CO7105 207120 
1753 
~ 1754 
1765 
1756 
| 1757 
. 1758 
1759 ¥ 
1769 e 
1761 
1762 
17&3 
1764 
i7&5 
I7EE 


007079 


° 
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Re RE METE PAAR OD BUM the 
The rari t LEFT JUSTIFIE DIVISOR KEEPING TRACK OF SHIFTS 
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: ANSWER. UNLESS ma Ly CALL IS MADE THE OUTPUT 


sWILL ALWAYS BE 
5 USE SSH ERR ARERR RE EEE 


Atmeyi: 0 

DUMMY2: O- 

ZESUP: 0 ;ZERO_ SUPPRESS FLAG 

RSC eSP: INC ZESUP -SE 

IZ: MOV O(SP),R1 ?GET LOW ORDER ADDRESS 
ROD #2, (SP) ‘ADJUST POINTER 
- MOV (RL)+,R3 GET LOW , 

MOV (RL) Ae :GET HIGH ORDER 
MOV #10.’ DIVCNT -10 POSSIBLE DIGITS 
MOV #ASCRES, RS :ADDRESS OF DIGITS 
MOVB #200, (RS)+ CH HGEN TERMINATOR 

ASCLP: MOV #10..R4 
MOV RS5,-(SP) :SAVE RS DURING DIVISION 
JSR PC: DIVIDE ;DIV 108 BY 10 
MOV (SP)+,RS - *RESTO RE RS 

#60, spa IT ASCII 

HOVE Re (RS)+ T IT IN THE ASCII STRING 
OV RO’ R2 met ANSWER IN DIVIDEND SLOT 
DEC DEVCNT 


iN MO VE ae 
; INIT THE SWITCH 
;LCOK FOR ZEROES ‘ 


R P 
SKZE:  CMPB -(RS), #60 
Q ;AND PASS BY THEM 


TSTB (RS)+ BACKUP 
BPL MOVALL :AT LEAST ONE ZERO 
INC RS :POINT TO FIRST NUMSER 
MOVALL: MOV a(SP),RO , :ADDRESS OF RESULTS 
ADD #2, (SP) ADJUST RETURN 
MOVAL: MOVB -(RS),(RO)+ 
L MOVAL ;200 BYTE IS TERMINATOR 


5 RRR RERH AREER EERE REE EERE EE EERE EE EERE RE EA RA REE RRR ER EEE EES 
THIS ROUTINE DIVIDES A POSITIVE DOUBLE eh tae NUMBER 
sFOUND IN Re (HI) = R3 (LO) A My POSITI i vt IN 


T BIT IS IN BIT 14 OF RY. THE SHIFT COUNT 1s THEN 
‘ADDED TO 16. AND THE DIV TSION. IS STARTED BY COMPARING THE 
;DIVISOR tae in iis a erie ‘4 T IVIDEND. 
A SUBTRACTION IS 


:AETHEEN Ov SOR AND H OROER SENG SWER TS OPNEREMENTED. a 
Lan, OF fk RE a BOTH A THE ENSNER aNd 


THIS. SEQUENCE aS PERFORMED THE NUMBER OF TIMES INDICATED Gy 





DZNCB.P11 


Hieiz 


“J 
w 
etatete: 


NANA" 
SP 

oO 

Oo 

i 

9 ood — 
¢ 


b+ D2 bo 2 0 2 b= P= b= 28 — 02 & 0 b-0 b~2 Bs bo bh 2 b= po ho ho pe pe 
Bevery ey Io 
DO PUI Le WrOr 0G ~ 
8 
 ) 


teal be 
536;£ 
Wwru- 


qcoa cw 

ee te ~erun 
wr OWONTWS 

8888 8 

a ny 

r a 


MAINODEC-11-D2NC8-¢ 
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007206 
000029 


007206 


001246 
007436 


007426 


BoP 336 


007337 
007300 


001246 
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: SHIFTCOUNT. 
R2R3 / R4=RORI 
Ns sity t+ allele 14 ot7 1-1 “lll 
iacoens CLR Re sINIT SHIFT COUNT 
ctR Ri s7ERG THE ANSWER 
DIvJuS: INC R5 . THIS IS THE SHIFT CCUNT 
SL R4 :DIVSOR 
BPL DIVJus 60 NTI BIT 15 SETS | . 
MOV RS, RMJUST save SIFT COUNT FOR. REMAN. JUST ‘ 
D #16.,R5 :SIMULATE 16 BIT SHIFT 
DIVLOO: BSL Rl ANSWER X 2 
CMP Re.RY sCOMPARE DIVISOR AND DIVIDEND 
BI NOSUS :IF DIVSOR LARGER NO SUBTRCTION 
INC Ri’ sNOTE SUBTRACTION: IN ANSWER 
NOSUB: BSL RS RKE DIVIDEND LARGER 
DEC RS :BY ALL THIS SHIFCNT TIMES 
BNE DIVLOO 
RLIL: ROR R2 ;NOW RIGHT JUSTIFY THE REMAINDER 
DEC RMJUST 
BNE RLJL 
RTS PC 
RMJUST: 0 






RE rrr 
THIS ROUTINE AVERAGES THE LAST 32. X-Y JOYSTICK VALUES 
5 RERRRAK AKER ARAL HEE EE EER ERE EEE EEE AE EERE HEE RARER AREER E RELEASE SES 








ivave: MOV RO, -(SP) ;SAVE RO 
MOV TEMPO. RC -GET X 8 Y 
MOV XYBUF®, Re $GET CURRENT BUFFER POINTER 
MOV RO, (Re3+ SAVE NEW VALUE 
cH Re, ” #XYBUFE sENO OF BUF AFER? 










MOV #XYBUF , RE :YES, SO BACK TC BEGINING OF SUFFER 
1S: MOV, Re, XYBUFS save NEW BUFFER POINTER 

NOV #XYBUF , R CALC AVE x 

’ 

MOVB . RO,-(SP) ;SAVE IT 

MOV EXYBUF +1, RE :CALC AVE Y é 

JSR 10$ :G0 DO IT 

SWAB RO :GET X-Y_IN RO 

BISB (SP)+,RO0 :GET SAVED Xx 

MOV , RO, TEMPO sPUT IN TEMPO 

MOV {SP)+, RO RESTORE RO 

RTS sEXIT WITH AVE X-Y IN TEMPO 
10$: CLR RO ;ZERO SUM ‘ 
11$: CLR RS :D0 A MOVB TO A 2EG CUNSIGNED) 

BISB (R2)+,R5 | 

ADD RS,RO’ ;ADD IT_IN 

Re’ :SKIP OTHER VALUE 









MAINDEC- 
OZNCB.P1 


1824 


agnaannantn 


bb = & = &— bb = B— > — pp 


es NF 






‘homme 


007312 
1825 o073 
1 007, 
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020227 007436 CMP Re, #XYBUFE ;END OF BUFFER? 


03771 BLO 11s 
3 


3NO 
ASL 0 ;DIVIDE BY 32. 


007322 0063 ASL RO 


090300 5 
042700 177400 3 
000207 R 


006390 ASL RO 


_XYBUF: 


QOOOOOOOVOOVWOHVHOOOKOKOOOOBVODOODOD00000 


007436 XYBUFE=. 
007336 XYSUFP: XYBUF 


5, RRRRRRR ARRAS LARA REE A RAR AEA RARER KALA RAR AER RA RAL AAA REALL RAALAR ES 


*SBTTL TTY INPUT ROUTINE 


* ENABL 


sf EET erect rte eee 


RO 
#177400, RO ;CLR' HI BYTE 


hehehehehe 
L 










AND WILt 
SWITCH REGISTER TRAP CALL 









MAINDEC-11-D2NCB-C GAMMA 
“B.F1l 


ECT SER MACYLL 27(732) 


TTY INPUT aout t 


022737 
74 


100071 
117746 
042716 
022726 


Se teneiees 
‘B 


88 


Oo 

=8 
— 
<= 
Oo 
GW 


OWOOODO0U0D000W 
& 
‘ 


be be ee 
WONMU£ WMO 


— 
a3 


3 


. 


uc 


a 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

sl 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


REBRERSSRE EBS 


Re 


000176 001j40 
171470 
171464 
177600 
000007 


001134 000001 


SCKSWR: 


171402 
177600 


. 000025 


010305 
000006 


000015 
000004 
000002 171326 
000096 


001161 
001135‘ 900001 


000100 171304 
o10si2 
000060 


000067 . 
000060 
000002 
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#SWREG, SWR 
a8fks 
rae -(SP) 
atcl7? (SP) 
SP)+ 
tag 
SAUTOB, #1 
15$ 
,SCNTLG 
SMSWR 
SWREG, -(SP) 


Mam me TU 
SS 


% 


118.1 $0 SOFT-SHR SELECTED? 
Hi a THERE 

at T WAIT AROUND 

ie Ete CHAR 

i STRIP-OFF THE ASCII 
:1S ITA CONT Rol 6? 
33NO, RETURN TO USER 

RUNNING IN AUTO-MODE? 
::BRANCH IF YES 


;;ECHO THE CONTROL-G (tG) 
75 TYPE CURRENT ete 
;SAVE SWREG FOR TYPEOU 
G0 TYPE--OCTAL ACCT CALL DIGITS) 
;PROMPT FOR NEW SWR 
3 CLEAR COUNTER 
THE NEW SWR ° 


CHAR T THERE? 
:: IF NOT TRY AGAIN 


;;PICK UP CHAR - 
;;MAKE IT 7-BIT ASCII 


318 IT A CONTROL-U? 
:BRANCH IF NOT 
“33 YES ECHO CONTROL -U (tU) 
3 IGNORE OUS INPUT 
:LET’S TR it AGAIN 


io IT A <CR>? 


aso 1 Sue FIRST CHAR? 
ae if ved 


‘ 


CHAR 


sc vs 
tad 


HIS Pe FIRST CHAR 


; KEEP COUN OF CHAR 








SIDES LI-DIN 


DINC8.5 


Oth 10.0 
; 
o-(9.0009~ 0 


££ OIGIGS 


+ 0-* 0-6-2026 20-0 9-< <p 0p 
O.0 
eS 


ar oa oe 


® 
Md 

P 
su 6. Gates 


ue 
-Owo 


i ad 


OONINoMouMy 
0-+ 00-90 +0202 <0 = 6-< 


br Bes bar os est 
4G Cho 


a Hes eee ie fo es oes tor 
wtotut 


B88 Oe Oe Soar 
~-Ow 


Bor sa 
C2. NON 


0 20 +02 e +b 80-08 +0 +o +b 28 + O98 oe <b 2b od 20-0 08 20-59-0828 2h hb 2h 0-0 og oho 


addat 


88 
pecscee ss 
4 OIGITUTUe +e “ 

vVOoOrVMOova 


Hot 
t 


a 


Seeuiee 


cu IWDOUOVo0OO0U 


a 
oe) a) 


*-19000) 


azn 


R 
.OSABL LSS 


Pe a a ee ge 
ae ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


DCHR 3; INPUT A SINGLE CET ER FROM THE 7 
Rete KERE 7; -M@RACTER IS ON THE 
a: rilITH PARITY BIT STRIPPED 


oo 
3 
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Bis -2(SP), (SP) 3 32ET iN , 5 eo 
BR : GET THE T Of 
TYPE $QUES ;3 TYPE ? irs 

20$ tt CTMILATE Roh rROL<u 


ee ee ere ee me 
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PERS TRALSELELSSFALALRELELE LE LEFF SS 


SROCHR: MOV (SP), <(SP: :;PUSH DOWN THE PC 
MOV 4(SP) 215F) ::SAVE THE PS 
“E49 ISTKS ::WAIT FOR 
SPL 13 -: CHARACTER 
MOV = SSTKB,4<SP) ::READ THE TTY 
BIS etc!’ 4(SP;  3:GET RID 
CMP 4(5P), 923 IS ITA 
SNE 3g : ;BRANCH 
rSt8 = MS TKS ;WAIT F 
RPL es : LOOP UNTIL ITS 
MOVS = SSTkB,- :;GET_ CHARACTER 
gic atcl? 5” :36) ::MAKE IT 7-BIT As 
CMP (SP i+, bal ::If ITA 
SNE 23 ::IF NOT DISCARD IT 
5K 1$ >: YES, RESUME 
ME 4(SP), #140 -:15 fT UPPER 
BLT 4§ ;:SRANCH IF YE 
CNP 4(SP), 8175 3315 IT A 
BST 4 s;BRANCH I 
SIC #40 .4.SP) s;MAKE IT | 
RTI 2:60 SACK 

SSLSFSSSSERESSSSSSLFRSSSSSFSSLSERSSSSSSSSSSSSSATSLELESLLSESSSSS IVA 
ars ROUTINE WILL INPUT A STRING FROM THE TTY 

1 oe LL: 
ROLIN 33 STR 
RETURN HERE ' iiabpeese. fr 

SRDLIN: MOV R3 -(SP) : SAVE °3 
CLR ) ::CLEAR THE RUSOUT 
MOV ast TYIN,R3 3;GET BOR E 
CMP aSTTYINe7, R3 HBR OF ae 
BLOS 4 
ROCHR 38 Fea ON 
MOVB (SP +, (RB) - ::GET CHARACTE 
CMP 27, tR3) 2315 a a RUBSUT 
BNE é5 ::BR IF NO 
TST (SP) iis THIS 
BNE ‘ed IF NO 
MOVS sg". i Tyee BACK SLASH 
TYPE =—-_ 95 





OF Tank i ANY 


TTY 
TRST Tana TER 
; TERMINAT 3R WILL 3& A BYTE OF rs - 


THE FIRST RUSCUT” 





if “DINCS=-¢ 


aaa & 


0--0- <6 <6 <5 9 


0010.00 
YOIKVOOVIVOONIOOI0OV0000 


Oo 


C0 


(nD 


gt3fo 
6-2 b-< §~< &-< &- 2 0-2 <> -§-- 6-9 — 9 ~~ §-—- 9-< 0 - 6 -< 9+ 


B 


*-€2.00 U1 6: Lofue- 09.0 
WaT st aie a tibiae ab taps yet ot 


oe) ae ae] a] oe] oe ae | on] oe] oe 
0 0-2 0 = 0 96 -+ Be bb 2-0 
folufurora 


aaa 
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Thy INPUT §duT 


= C= 
~o 
Wo-- 


dd 0- FuD- 
qa 


3h 
wits 


a 
--" 


B 


ae 


8 
ir. 


~~" 


3 LINE FEED 
: sch LEAN RUBOUT KEY FROM THE STACK 


“OOD 


4} CONTROL “° 


' Owrorvuw 


s LELFLEFSFRESSSSESLARELAFAELELSLALLARRELRLSFLTARRARARLLERLERUERARLLR 


ugsees TYPE ROUTINE 


 PEREPEERESEEERERESERDEAEEERRELERERESEERARRE EER RRRLERRERRERAERES 

S#ROUT NE _TO TYPE ASCIZ MESSAGE. 

:# NST OUTINE WILL INSERT “ are tee F NULL CHARACTERS AFTER A LINE FEED. 
SNULL CONT HE CHARAC AS 


SFILLS SONTATNS THE NUMSER OF FILLER CHARA RCTERS REQUIRED 
SFILLC CONTAINS THE CHARACTER TO PILL AFTE 









BR THE RUSOUT KEY 
i UP BY ONE 
K EMPTY? 
; F YES a 
i Ebnlp TO TYPEOUT THE CELETED cHa5. 


360 ce ANOTHER CHAR. 
; ;RUBOUT KEY SET? 


TYPE A BACK SLASH 


;;CLEAR THE RUSOUT KEY 
i313 CHARACTER A CTRL U? 


: TYPE A CONTROL “U" 
TAR 


‘TYPE THE INPUT STRING 
33 G0 opICKUP ANOTHER CHACTER 
+ ESR” THE BUFFER AND LOOP 
: ECHO THE CHARACTER 


:;CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
s:cLEAR RETURN (THE {5) 


“y 


TORE 
i ACIUST THE STACK AND PUT BRE SS UF THE 
o3 FIR ST ASCIT CHARACTER 0 ON Iv 


RET : 
STORAGE FOR ASCII CHAR. TO TYFE 
HIRESERVE 7 BYTES FOR TTY INPUT 


sey 






He Sane MUST TERMINATE WITH A O BYTE. 


Lo] 
ad 
ys 
tw 


rate 
Om 


wy 
Oo 
i 


QOooac 
© 
Ti 
wf 


Panerai 
aia 
rin 


F 


urufurururoru 
£ 


tuft 
Renee 
UNS to 
ae 
Sats 
oF “I P~ IO o 
Miersntetstetenee ab detat at 


8 


E EPPS PPP PPP RE EU 
5 Ea amNE HeoOS 
" 


OOONINO OUMNNIMIOOVOVAOVNOOOOOVVOO0O00V0ON 


6 +--+) 0 6-<9-0 b-* = 0 & = & ~- p< b= &* & ~~ &-< §-< b= 9-2 6—* 9 2 & « §— 9 ~~ B-< § - & ~~ Ho 9-2 BH ~ 


ene 
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Sno Loner 


apart AE 


WaKAU 
FERRY 


O—* & = 0-2) = & 28 -+ 0-2 8 + 9-2 §— B= §- 2 Be 
£T 


0 +6-0-C 9090 000 
MOOOoKHOOOOOVUOoNON 


qururgrurureronery 
tofor=t3.bee Vern 


an 


Lo | 
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009002 


cooo0e 
900011 
coo200 


C1O55& 


0108 le 
O0115e 


801154 
-Ccoeg: 


010Sié 
010555 


OOCO40 
C3051 
ogcce 


170432 


cococe 
000015 


C10SSé 


ogee 


wwewwe 





MACYLL 27.732) 21-SEP-76 15:32 PAGE 42 


s*CALL: 
:*#1) USING A TRAP INSTRUCTION 
7% TYPE .MESADR 


:#OR 


ye TYPE 
vs MESADR 
9 
STYPE: 1378 STPFLG 
HALT 
BR 
1$ MOV -( SP) 
MOV aetsP) RO 
2$ MOVE (RO}+,=( 
NE ; 
TST (SP}+ 
£o$ MOV (SP )+ RO 
BOC #2, .SP) 
4 CMPB Os, (SP) 
BEQ 
CMPS Ss a@CRLF', (SP? 
BNE st 
, TST (SP)+ 
TYPE 
SCRLF 
[RS $CHARCNT 
Y 5R 2g 
S$: TSR BC STYPEC 
5s: CMPS = SFILLC, (SP)+ 
BNE 


Fo 
MOV SNULL ,-‘SP) 
7$: DECB 1(SP) 


bs 
JSR «PC, STYPEC 
DEC SLARACNT 
. 


BR 
:HORIZONTAL TAB PROCESSOR 
8S: MOVB e’ . (SP) 
35: 35R Pc $TYPE 

BITB 7. SCHARCNT 

BNE 3g 

TST (SP i+ 

ee 3 
$TYPEC: TSTB STPS 

BPL $TYPEC 

MOY 2(SP). a$TPB 

CMPB Ost, 2LSP) 

BNE g 

CLAB CHARCNT 

BR STYPEX 
18: CMPS ~=—s LF, 2 ( SP) 


ee ee ee 





:;MESAOR 1S FIRST ADDRESS OF AN ASTIZ STRING 


3318 ie A TERMINAL? 
:;HALT HERE IF NO TERMINAL 


TADTUST RETURN PC 
; ;RETURN 

;;BRANCH IF <HT> 
;:BRANCH IF NO 


«CR><LF* EQUIV 
:; TYPE A CR AND LF 


:;CLEAR CHARACTER COUNT 
3; GET_NEXT_ CHARACTE 


R 
TYBE THIS CHARACTE 
T TIME FOR FILLE 


GO oN NEXT CHAR. 

OF FILLER CHARS. NEEDED 
HE CHAR 
HE NULL OFF OF STACK 


GQ TYPE A NULL 
per COUNT AS A COUNT 


5 sREPLACE TAB WITH SPACE 
3 sBRENEY BF NOT AT 
33 T 
;;POP SPACE OFF 
I:GET NEXT CHARACTER 
s:;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYP 
3319 CHARACTER A CARR 


NO 
s3YES“CLEAR CHARACTER COUNT 
318 CHARACTER A LINE FEED" 


D INTO DATA RES. 





~ ELS L-DINS=L 
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States 2 
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B 
oO 
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ReRE 
Botanic’ 
Rie 
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SOtD SSUPUTE LOfUr- Cab SORE EGaTU CODED TORU ECU CUD - BOUT Gal 
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i STYPEX s;BRANCH IF YES 
geuagen peo he BAC TER KBUNT ePoRaGE 


S SRSSRSSRSRALSSLRAHFRSARSAPSHERA SLE LSERLSSLLASSSKSESLSSLF LEFF S4F4F44F 
‘ASTTL SINARY TO OCTAL (ASCII) AND TYPE 


5 SPRRREERELERPRELERE EER EEEERE REL TEREEE AALS RES EELEREE EERE SEES EES 
s#THIS ROUT INS TS USED TO CHANGE A 16-BIT BINARY NUMBER TO A E-DIG 

s#OCTAL (ASCII) NUMBER AND TYPE IT. 

je¥TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMSER CF DIGITS TC TYPE 





#o 
2% MOV NUM, -(SP} s;NUMBER TO. 3 TYPED 
:* .BYTE ON PENI 1 T0 6 ER NUMBER OF DIGITS TC TYPE 
° + . BYTE ‘ ™ te Ms OR C _ 
2% ;1=TYPE LEADING ZEROS __ 
o ‘!OSSUPPRESS LEADING ZEROS 
:#3T)PON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:#STYPOS 0 OR $TYPOC 
4 &L ad 
:* MOV NUM, -(SP) _ NUMBER TO SE TYPED 
te TYPON ::CRALL FOR TYPEOUT 
sé 
: 8 1vF0 OC-<-ENTER HERE FOR TYPEOQUT OF A 1& BIT NUMBER 
3 : 
:# MOV NUM, -( SP) s:NUMBER TO BE TYPED 
14 TYPOC ::CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(5P) :PICKUP THE MODE 
MOYS 1(5P)-$OFILL : LOAD ZERO FILL SWITCH 
MOVE (SP)+ $OMODE+1 ::NUMBER OF preire TO TyP 
ADD #2, (5°)  SabIUST RETURN ADDRESS 
BR STYPON 
STYPOC: MOV #1, SOF ILL 33SET THE ZER 0 FILL SWITCH 
MOV #6; SOMODE+: ::SET FOR SIX(6) SIGITS 
STYPON: MOVB 85, SOCNT 33967 THE ITERATION COUNT 
MOV R3,-(SP) . TPSAVE R 
MOV RY’ -(5P) $s SAVE 3 
MOV RS. -(SP) ::SAVE RS 
MOVE SOMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
NES #6,R4 ss SUBTRACT IT FOR MAX. ALLOWED 
MOVE RY’ SOMODE $3SAV YE IT FOR US 
MOVB = $OFILL.RY ::GET THE ZERO FILL SWITCH 
MOV 12(SP).85 :;PICKUP THE INPUT NUMBER 
CLR R3 ;:CLEAR THE OUTPUT WORD 
1$ ROL RS ts RTE MSB INT 
BR 33 3000 MSB 
2s: OL RS 33 ORM THIS OISIT 
ROL ae 
ROL RS 
MOY RS,R3 
2$: ROL R3 ::GET LSB oF THIS DIGIT 





mm a a ee 5 ee ee 





ret 


aoe E 


CNNYVVOYAIVWOIVVIOVMOOVVIAIOVHOOONO0 


+-< b+} -< 9-— 8-<  -— 6 &-< b= 6 —< 6 -< §-+ 6-2 6-2 §-< §-2 6 bo oe 


ufunsture 


ISICON Orw 
Ps brit SOULE 


arith 


i et 


QN0000000 
seedy 
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- 
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8- 
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0+ 0-<6-2 &-06--9-- (9090) 
Slelel els) 
QaQaag 


Oust 


+00. *0-* 0-<b-< 0-29 - 0 6-0 = 6-2 b—2 & + 9+ 0-2 b= 9 0-2 b+ § = 9-0 8-0 & 0 Bs & + 2 0 9 2 fo fe ho 


turulurururulurunorurormrn rrr rrr rmrururururururunifturorrnnred 


> +0-+0-+8 


mo 


autre 


Rerererererararararararany 
Riot 


(ne CoO Oe NERO EtofO = Dt SEP UTE tatUr Cuda der UTE Gof 9.008 ~SOHUt Ode 
MWOMOOOooOO0000000 
> + b-= + B-* &- 2 § —2 & -2 b= B= b+ 6 FO 
0 + 0+ 0 = b—« b= b+ 8 b= 9-2 b+ b= & + 8-2 8-0 


Roots 
WEEES 


ror 
turn 
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) AND TYPE 


DECS «= SOMODE 3 TYPE THIS DIGIT? 
PL 7$ IF NO 
1¢ #177770,R3 :IGET RID OF JUNK 
BNE 4§ T FOR O 
TST gy :s SUPPRESS THIS 0? 
BEQ S$ YES 
4g: INC RY DON" T SUPPRESS ANYMORE O°S 
BIS 8°0,83 AKE THIS DIGIT ASCII 
ci: BIS sag? RB tS MAKE ASCII IF NOT ALREADY 
MOVE ~ R3,8 SAVE FOR TYPING 
TYPE 3¢ GO TYPE THIS DIGIT 
7$ DEC $OCNT 
gc es gg IF MORE TO DO 
TNC RY : TNSURE LAST DIGIT ISN'T A SLAM 
8R 23 ::60 00 THE LAST DIGIT 
Sf: MOV (5P)+,85 ::RESTORE RS 
MOV (SP)+,R4 5 sea TORE 
MOY (5P)+'R3 ::RESTORE R 
My) 2(5P)4(SP) 1:SEY THE STACK FOR RETURNING 
Hoy SP)" (SP) 


RETU 
St oRage FOR ASCII DIGIT 


3$ .BYTE 2 
cor; “RE 8 : TERMINATOR FOR TYPE ROUTINE 
Grit: ievie 8 $1 ZERO pO iGIT SOUNTER 


SOMOLE: WORD 0 ‘AUMBER OF DIGITS TO TYPE 
THASEREEEREDEESEAEAEEAASESEAEEESSEEEESRERREEDEASEREREAS SCRE EEE 


:SBTTL READ AN OCTAL NUMBER FROM THE TTY 


; RERRELERERRELERLLRELEEELERAD EES REREEAREPSEEREERESEE DER ESESEEESE 
#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
: were IT TO BINARY. 
INPUT CHARRCTERS WILL BE es TQ DOD THEY ARE LEGAL 
isgeTa DIGITS. IF AN ILLEGAL CHARACT Bae | READ AM?" WILL Es TYPED 
m4 FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMSER MUS: 


PeCALL: 


: RDOC 
+ RETURN HERE By ORDER arts ARE ARE BN T OF THE $ 
te | : *:HIGH ORDER 817 3 ARE IN ; ‘P5CT 
SROOCT: MOV: (SP). -{SP) PROVIDE Space FOR THE 
MOV 4isps 2(SP) iN NPUT 
MOY RO, -( SP) USH RO ON Fa 
MOV R1:-(SP) ::PUSH R 
MOV Ro’ -(5P) :: PUSH 
18: RDLIN READ AN SeoP ; Atv 
MOV (SP)+,RC ::GET ADDRESS OF 1ST CHARACTER 
MOV R5,53 ::AND SAVE f 
CLR RI : iam DATA WORD 
CLR Ro : 
23: MOVB  (RO)+,-(SF) 
BEG 
CMPS #°0, (SP) 
867 4g 





HEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
























MAINDEC- 
se: c8.F1 
2216 O110S4 122716 
22i7 11080 92423 
seid GLites Geblte 

33 11066 I 
2321 O11970 o0&102 
2222 011072 906301 
Eee3 911074 0102 
S224 O11075 O4e716 
225 O1110e 96260! 
eee 911104 0007S 
Seer O11105 305726 
S228 O11110 919166 
2229 Cli114 010237 
2230 O11120 dOl2602 
2231 Ollle2 O12691 
fase O1l1e4 012609 
2233 Ollias odode 
2224 011130 0057 
2235 O11132 195010 
D236 O11:34 1044 
S237 Of113s §9c005 
2232 11199 104400 
we ‘ oe wi! oe 

5556 Oilise do0050 
224! 
2242 
-ge42 
est 
2c45 
22 
2e47 
5248 | 
3245 
2250 D11150 o1o046 
2251 11152 916600 
S2s> Diriss S06749¢ 
2253 O111EO 111000 
ees4 O1ilse 606300 
e2ss Sii164 8retos 
S256 611179: G00200 
2257 
2258 

| E25 

 * 

| Bete 

| 2263 

i i—d as 

| 2865 o11i72 

| 2286 O11172 o1034e 

| get? OL1I74 O10608 

| Be68 Of117— o10562 

| 2269 Olieo0 010622 
cere 

| ze71 011202 co7si0 


LI-DINCS=C SHIA LL E 
i READ AN OCTA 


009087 


OCi1so 


posc02 


ALr31> 
wWeee! 
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NUMSER FROM THE TTY 





CMPS) sg 7, (SP) 
Sf : 
ROL RA F 
ASL Pl 3344 
ROL R2 
QSL RI #8 
ROL R2 
s1¢ 81C7, (SP) »:STRIP THE ASCII utik 
ADD (SP)4,R1 33RD IN THIS DIGzT 
BR 23 LOG 
33 TST (SP)+ :: CLEAN TERMINATOR FROM STACK 
MOV R1,12(SP) ::SAVE THE RESUL 
MOV Re’ SHICCT 
MOV (SPi+, Re ::POP STACK INTO Re 
MOV (SP)+'RI HBO STACK INTO RI 
‘Hey (SP)+/RO :POP STACK INTO RO 
ag: TST (SP)+ + EEN PARTIAL FRON STACK 
CLR3 ss (RD) -:SET A Aoki 
TYPE :: TYPE UP THRU THE BAD CHAR. 
cs: .WORD «0 
TYPE SQUES ee “CR” 3” 
aR g :TRY AGAIN 
SHIOCT: |. WORD HIGH ORDER BITS GO HERE 


«HEE SEEGER EEE EE EEE EE OEE 


‘doTTL . TRAP DECODER 


i blott-tet-tid-loletah--tiigh-tabict aid tet-tiah-iet-terdteb-ighnieetttnt tatters 


TETHIS ROUTINE WILL PICKUP THE Lower BYTE OF 


" INSTRUCTIO 


THE “ ON 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STA TING ACCRESS 
:#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:*60 TO THAT ROUTINE. 


STRAP: MOV RO. -(SP) 235 ee 
MOV e( §P) RO ag TR /AQORESS 
TST ) +38 CKUP BY 2 
MOVE 7RO) .RO :GET RIGHT BYTE 0 
ASL "hats : POSITION FOR NSEXING. 
MOY STRPAD(RO:.RO :;INOEX TC TASLE 
RTS RO ::G0 10 ROUTINE 


-SSTTL TRAP TABLE 


;*#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;#BY THE “TRAP” INSTRUCTION. 
; ROUTINE ; 


$TRPAD: 
$TYPE ssCALL=TYPE TRAP+0( 104400) 
STYPOC ;;CALL=TYPOC = TRAP+1 (104401) 
STYPOS ::CALL=TYPOS § TRAP+2( 104402) 
STYPON CALLS TYPON TRAP+3( 104403) 


$GTSWR ;;CALL=GTSWR TRAP +4: LO44O4) 





TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER aan LEADING ZEROS) 
TYPE OCTAL NUMSES <No LES DING cERCS' 
TYPE OCTAL NUMBER RS PER LAST CALL? 


GET SOFT-SWR SETTING 
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PINS. PLL TRAP TABLE 
2272 
S273 011204 ooTHHO SCKSWR 5 ;CALL=CKSUR TRAB+5( 104405) TEST FOS CHANGE IN SOFT-SuR 
e274 911206 N077ee2 SROCHR ::CALL=RDCHR  TRAP+6(104406) TTY TYPEIN CHARACTER SCLTINE 
ears O11210 O10042 SROLIN ;;CALL=ROLIN © TRAP+7(104407) TTY TYPEIN STRING ROUT INE 
3276 Oll2i2 911510 RDOCT ::CALL=RDOCT | TRAP+10(104410) READ AN OCTAL NUMSER FROM Try 
33° é » AS48696 Bete db oe a hb 0 0b LEEGES 
e578 | 'SBTTL POWER DOWN AND UP ROUTINES 
eer F 
2282 PUTTS T TEST TETT TET ETT TTTTTTTTTTETTTTTETTTTTETETETTT TEESE CCE TTT TS 
2291 “BOWER DOWN ROUTINE 
282 011214 O12737 011369 000024 SPWRDN: MOV WSILLUP, DMPWRVEC ; ;SET FOR FAST UP 
283 911322 J1e737 000349 0003s MOV #340, JHPWRVEC+O 5 $PRIO 
2284 Oll230 O100 MOV . RO,-(SP) PUSH: 0 ON STACK 
2285 Ollese O10i46 MOW R1,-(5P) tency Rl ON STACK 
e285 Oll2e34 O10246 MOY Re,-(5P) :: Re ON STACK 
e237 Oll236 O10346 MOV R3.-(5P) ::PUSH R39 ON STACK 
2288 911246 O10446 MOV RY’ -(5P) ::PUSH RY ON STACK 
2289 511242 G10S46 MOV 5’-(5P) ii SH RS ON STACK 
2290 O11244 017746 16767 MOV JSWR, - (SP) :P USH JSWR ON STACK 
2291 O11250 019637 911364 . MOV «SP, $SAVRE 
$2 011254 912737 911266 o000z4 MOV SSPeRUP SePURVEC’ CET UP VECTOR 
$3 Olicbe o09009 T 
$3 011264 O00776 BR 2 :;HANG UP 


3 

37 

98 021266 Oi2737 011360 cocde4 éeURLP: MOV 

$3 Slle74 O:370€ 911364 MOV 
200 011300 005037 611364 CLR 
201 O1:304% 905237 011364 1$: INC 
302 011319 9001375 BNE 
£293 QOl!3i!e 012677 1687622 MOV 
230% Qi131& 012605 MOV 
2205 Sil3e0 912654 MOV 
23068 Qll3e2 12603 MoV 
2397 O11324 Ole MOV 
2208 dil3e& 01260: MOV 
22039 011330 912600 MOV 
2310 O11332 012737 O11214 9909024 MOV 
2311 911340 012737 O0034C 000926 MOV 
23i2 G11346 104400 TYPE 
e3i3 G11359 Ol3eee SPWRMG: .WORD 
2214 011352 O1e7! ~ HOV 
e315 Oii354% dOi6l1s SPWRAD: .WORD 
2316 913356 000002 RTI 
23:7 013369 900000 SILLUP: HALT 
2318 Cil3te 800776 BR 
2212 Oii36% 000000 SSAVRE: OC 
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'BOWER UP ROUTINE 


aSILLUP 
$SAVRG, SP 
RE’ 
SSAVRE 
(SP 4, JSWR 
P)+ Fe 


uv 
++: 
ww: 
O~ 


PWRMSG 
(PC) +, (SP) 
STA 


RTi 





+ ELEREE LEER LEAL EKER EERE ERE RE EEA EERE ARERR ARERR EERE RE ESS FRESE RE 
DBPWRVEC SET FOR FAST DCwN 


TS 
WAIT LOOP FOR THE TTY 
3 HAIT FOR THE INC 
F_ WOR 


D 
: POP ate INTO aon 
33 ;POP STACK INTO R 


t THE POWER FAILURE 

i BoWeR FAIL erence POINTER 
;;RESTART AT STR 

; ;RESTART RODRESS 


¢3 THE POWER UP SEQUENCE WAS STARTE 
;;_ BEFORE THE POWER DOWN WAS COM 
;;PUT THE SP HERE 








eh et a 
SNe v8.P11 


0 b= 0 b> 0 9-2 9-2 po pa pe 
0 bh Er tet’ J 


LEE ECE ow 


HBF ESSR OER ESS 
QODOOVOVBOWIAOIVNIIOOOOOOVOVOVDVWVOHUGIVO0OoOH 


QAIOHVWOOVOVVBVI0V0000 
-—>-- 
0 0 bo bs 0 bo 0 0 0 0 0 0 0 eee 


> - b-- b= 0 -- 6 -- 8 b> b= = 6 6 9 = 9 - pe 


om 


y= 
uw 
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FRSESESESSE SE ECE ES 
tua 


ONOVWOOHBdOHV0VI000000 
Ob 2 2 bb pa 
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uw 


intus-MWOUTW 


0— 6-- 6 -- &  6-= 6 — 6 &— & «+ b= §— §- + bs 
ruru 


Ninn 


~ BDOMOKTODTDOODOR0LOO200 
tS 











UlorUnIEes & 


23 


aa 


SANNA 4 EN 
VTOl INTENSE TY 


mag fam] oe | ae | on] Oooo 
EEFoIs Por 


Oo te 
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;TASLE OF POINTERS TO X AND Y INTENSITY PATTERNS Fo oR VTOL DISPLAY 
LEVTAB: Li 


;THIS IS THE copeD MATRIN hes. FOR INTENSITY DISPLAY 
iTHe punta ARE PACKED 2x R 


: COORDINA 
Ll: 
Le: 
L3: 
L4: 


LS: 


2 ee ee ae ed ed eed 


6 


“BYTE 16,62 

“BYTE 26, 32,64 

“BYTE 21:15'56,62 

-BYTE 05,20,43,57,71 
-BYTE 24,00,32,47,65,51 


-BYTE 02, 15,200,439, 46,61.65 


-BYTE OS, 12,24, 37,41,56, 70,83 
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SBTTL_ VTO1 INTENSITY POINTERS & DAT 





wo 





OwWOIOU LC LIte-O 





Y COORDINATES TO_A WORD 
al ye CONTAINS THE FIRST PAIR, 3 BITS PER 

















BYTE 33 


e 


inane 
FESR 


+ > 6 0 <0 -< & - & < 6 9 > 0p 2p 


Sanaa 


a 


ooc 
“3 
[a 


oe 


SH Bas Uno atte 
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Tess 
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0 +00 0 &-+ 9 — 6-2 0-— & + 0-6 0 & + b= & = &- 6-2 + 6 0 6-2 &— - F * 6 bb 0 0 b= 2 2 0 8 b= b= 6 0 2 §-2 6 8 2 9-0 2 9 82 = bb f= po oe 





© 20 20-08-20 0-00 -- 6-0-6 6 ~— > ¢ 6-6-2 -< 0 -- 6 ~~ 0 -< 6 = = & -= b= 0 6 & = © = 6 b+ = 9 -— & o & oO & 2 ho = = 92 9-2 fp 


tt 


L9: 


L10: 
Lil: 
Lie: 


i13: 
L14: 
LIS: 


Lib: 


Li?: 


Lis: 


i193: 


-BYTE 00,13, 16,31,35,43,57,61,74 


-BYTE 00,13, 16,31,43,55,57,61,74,35 
-BYTE 12,15,27,33,41,45,62,57,74,C0, 76 
~BYTE OC,03,165,21,24,37,42,45,57,61,64, 76 


-BYTE 07,12, 15,20,34,36,42,50,54,56,71,73,75 
-BYTE 01,05,97,13,20,26, 32,34, 46,40,52,60,65.73 
~B8YTE 03,05,27, 11,25, 30,33, 45,47,50,54,52,71, 74,66 


. BYTE 06, 10,23, 25,27,30, 32,44, 46,50,53,64, 71, 77,02, 04 


BYTE 02,04,06,10,22,25,27,30,32 - 
BYTE 45,47,50,52.65.71,73,77 
BYTE 02,14, 06, 10,22,25,27,30,33 
AAG SS. .90, 08.0008 F8.78 TF 


BYTE OB,04,06, 10,22, 25,27,30,94,41.43,46,50,57 


-BYTE €3,65,71,74,77 
-BYTE 01,03,05.07, 12,30,23,64,25,42,27,34, 36,5! 
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“3 
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L2l: 


L22: 


Lé3: 


Le4: 


Les: 


L26: 


-BYTE 55,57,70,53,66,7e . 
-BYTE 01,03,05,97, 10,49, 16,21,22,25, 42,27, 34,45 


> 


-BYTE 51,55,57,60,64,66, 72 


-BYTE 01,03,05,07, 10,40, :6,21,23,25,42,27, 34.46 


-BYTE 51,53,55,57,60,64,66, 72 


BYTE 00,02,05, 11,13, 16,22,34,27,31,25,40,42,47 


-BYTE 51,54,56,60,62,65,71,74, 76 


-SYTE 00,03,07, 12,14, 16,21,23,25,27, 32,34, 30,43 


BYTE 46,50,52,55,62,65,67, 71,74, 76 


BYTE 03,05,07,19, 12,14, 18,21,23,27,32, 34, 36,41 


-BYTE 45,47,50,52,54,63,55,67,70, 72,76 


-BYTE 03,05,07,10,12,1&,21,23,25,30, 32,34, 36,4! 


-BYTE 45,47,52,54,56,61,.63,67,70,72,74,76 
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eusg 12222 «ore o74 | 
B43 12885 = 00].-«S 003,00? L2?: «BYTE 91,03,07,12,14,18.21,22,25,27, 20,2, 34,36 

e490 1290 Ole OHO 

Mie be AE 8 

93 Ole41 O34 . 036 - 

5494 013543 «1S? .BYTE 41,45,47,50,52,54,61,63,65,67,70,74, 76 

495 Olee4e 050 O52 Oy : 

ev Qiessi 061s 

4g? 913264 > 070 

£488 018257 Oe 

5439 122 O03 005 007 128: BYTE 03,05,07,10, 12,14, 16,21,23,27,30,22,24,26 « 

S500 Oleee3 010 «Ole «= a , 
2501 Qisees O16 el 963 
Bes O1se71 «eo? 80s 
S503 018874 = 03436 - 

S504 Ol2e7e «| N3 ST .BYTE 43,45,47,50,52,54,56,61,63,65,87,70, 72,78 
e505 Oleso! 050 Ose O54 
250 01230 O56 O81  -Db3 
e507 Oles07 89s STD 
e508 Olesle = Ore Oe 


"012315 C01 003 005 Les: -BYTE 0:,03,05,07, 10, 12, 16,14,21,23,27,30, 32,34, 36, tad 


2 0123295 923 027 030 
2513 012330 32034038 
2514° Ole333 «43 | haan 
2515 Ole334 OW O47 OSD .BYTE 45,47,50,52,54,56,61,63,67, 70,72, 74, 76 
2516 012337 O52 OSY 056 
2517 Oles4e 061 062 067 ' d 
2518 Oles45- O70 G72 O74 
2519 076 


012350 
2520 hee 001 303 OOS L130: -BYTE 91,03,05,07, 10,12, 24, 16,21,23,25,27,30,32,36,41 


2505 012370 «tt ' : 
Heb Olev7i = ONSEN? .BYTE 43,45,47,50,54,58,61,63,65,67, 70,72, 74,7 


2530 O1e405 O74 O76 

2531 O12e407 O01 O03 O05 L31: BYTE 01,93,05,07,10,12,14,16,21,23,25,27,30,32,36,41 
isvie 007 G10 Ole 

2523 O1e4i5 O14 O16 I 
1e420 023 O85 O97 

2525 Olev23 030 O32 O36 

2536 Olev25 O41. : 

2537 Ole¥e7 8043S NSH? .BYTE 43,45,47,50,52,54,56,61,63,65,67,70, 72,74, 76 

2538 Ole43e CSD ose O54 

2539 O1e435 8605 «SCL 

2540 Ole440 065 067 070 


1e44e , O01 003 O05 132: BYTE 01,03,05,07,10, 12,14, 16,21,23,25,27,30,32, 34, 36 
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es44 012454 014 O16 021 
2eS4S 012457 023 025 027 
4% O12 030 034 
47 oi 65 Ba 7 . 
48. O1e466 41 043 © 04S ~BYTE 41,43,45,47,50,52,54,55,61,63,65,67, 70,72, 74,76 
2549 Ol2e471 047 050 0S2 
2es50 012474 OS4 056 061 
e5$i 012477 063 O65 067 
ess2 012502 970 07e O74 
es$3 912505 O75 im 
ess4 EVEN 
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2555 .SBTTL DISPLAY MESSAGES 
2556 7 sTHIS 1S) THE NESSAGE FOR THE BOTTOM OF THE SCOPE 
1 MESSI: 01 

Se fae Pe: 
- B50 Ole512 012561 MESS2: WOO02 

2561 012514 000000 9 

2562 012518 012604 ; NeSS3: 0003 ei 

ey Oi eee sete MESS4: WDOOY 

2565 012524 OO0000 0 ; ~ 

2566 Ole526 912636 MESSS: WDOOS as 

2567 012530 OOO000 ti 

go68 Gleose 12645 : MESS6: WDOOS 

9 012534 OO0000. - | . 

2570 012536 905015 BY7S14 42627 WDODL: ASCII 15)<12>/LOKER THRESHOLD /<END> 
2571 012544 O20l22 f44124 Oyese2 

2572 Oless2 O44123 O46117 020104 

2573 012560 00 ives 

2574 O12561 O15 OS2412 OSO120 WOOO2: .ASCII <i5»¢12>/UPPER THRESHOLD /<END>) ~ 
2575 Ole566 051105 952040 051110 

2576 O1e574 051505 047510 042114 | 

2577 Oleb02 100040 

012604 15 32 047503 W003: .ASCII <15><12>/2 COUNT=/<END> 

257§ Ol2612 O47125 O36S2 20 

25890 O12617 O40 D4OS1 OS1124 WOOD: ASCII / MATRIX COUNT=/<ENO> 

2581 012624 OS4111 O41440 65251 

2582 Olebse 052116 100075 7 

2583 012636 O20040 047532 O46S517 WOODS: .ASCII / 200M/<END> 

2584 012644 ~~ 200 

2585 012645 O40 Oe6S502 O¥0SO7 WDCDG: .ASCII / B-GAMMA/<END> 

2505 OlebSe O45 100101 


EVEN 
2588 000200 _ END=200 ;MSG TERMINATOR FOR DISPLAY CHARS 
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2530 ;THIS IS _THE TABLE OF CODED LETTERS AVAILABLE FOR THE 
3333 rVTOL SCOPE. . 
25S 212656 OTTOS: TABLE: 77061 7A 
25H 012862 o3506: 35061 
2535 012552 4511: 4511? :8 
2556 12664 O37115 37118 
2337 012668 302056 C2056 :¢ 
2598 312620 33404: 3404) 
e839 Oles7e O4511: 4531: 30 
2500 912674 337122 37122 
2801 912675 302077 32077 :E 
32 C1700 O7s047 75047 
2593 912792 02041 — - b2041 iF 
3534 O12709 575047 “B04? 
e605 912706 073056 73056 :6 
2608 912710 53504: . 3554: 
2557 Ole7i2 O4306: 43061 - 
2603 J1e714 943077 43077 
2503 O1e71g 9102: 10216 sI 
2610 Sle72G 934204 34204 
2611 O1e722 O2044¢ , ECE :J 
26i2 312724 074415 74415 
2513 912726 91246) 12461 K 
2514 512730 O42447 $544? 
25:5 312732 002077 2077 sk 
2515 012734 002041 62041 
2617 912736 95306! S30¢ " 
2518 312 043565 9356 
2613 512742 563461 £3461 sN 
eo D1e744 O43165 43165 : 
262: Sis74e 043056 43056 30 
sSee ble750 061 25961 
523 Olevs2 036041 35041 F 
| B55 Sis754 03706! 3706! 
225 c12756 BEa4E S24e6 70 
2be6 Ole: 03526: 35081 
| BSE? Ble7be sieves 12461 iF 
2528 Sle7s4 03705: 37057 4 
zee S1e7ss 041017 4101 :5 
| Be Heer) oro 70114 
| 2631 Ole772 0102 10204 
| 2632 O128774 4 76294 
2533 312778 p4z056 43056 su 
| 624 £130 43061 43061 
| BESE BiSop5 BuS0b1 43081 
i 3637 31200 pez5el 53561 sd 
' 2638 91301 3065 43065 
| ©2633 612012 O2506) 25061 sh 
| 2655 953019 d4e50 42504 ¢ 
264; 5rSa58 10204 10204 3Y 
sete fv. 2le M3052 4305 
e643 Olsoee GOxC77 04077 Pe 
Zees 513024 S7E434 S44 
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CLALL = 200100 
C2 = Y0o0e0 
COL 00667 
COLK = QOSETE 
SoMSAV 001316 
cCPER 001334 
C = 000015 
RLF = 090200 
CH8S 906:0 
CONT OOSS4E 
CISP = 177570 
i556 o+4S2 
TS861 04739 
TSDaT O02622 
TSOON 03590 
ISLOP 9032 
ISPLA O01i42 
TSPRE OO0i74 
iSPy OO5634 
ISPY!: oO05676 
IsPy2 o0S726 
IVCNT 90707 
IVIDE 007120 
iVIUS 3071e6 
TVL09 «DOT 14S 
MATRX CO32i2 
SWR os 17757 
TYPE QO02254 
DUMMY! O06724 
CUMMYe O00&72 
CVLOOP 003342 
CVT) #90630 
EMTVEC= 009030 


pie 


ERASE 
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FREERN OO0i34e 
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SNS = FESSRE 
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| PIRQ = 177 
| PIRQVE= 900249 
| PIXASM OOle72 
| PIXONT OO1276 
' PRS = 9900000 
,PR1 = 900040 
1PR2 = 000100 
iPR3 = 000140 
| PRY = 000200 
PRS == 000240 
i PRE = 000300 
| PR? == 090340 
iPS =] 
| PSwW =1 
| PURMSS 613228 
| PHPYEC= OO00e4 
| ROCHR = 10440E 
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ROLIN = 104407 2207 22758 
RDOCT = 410 S71 897 22768 
RESVEC= 099010 SOS : 
JL 2174 1731 1793 
RMJUST O07206 177S® 1792e% 17958 
ROUTA 104 sol 835% 
ROLTB 9 O0e116 802 8378 
ROUTC 2130 803 8398 
ROUTD 092140 g04 841% 
ROUTE 902144 gos S428 
ROUTF 9002154 806 B44e 115! 
ROLTG O02250 807 8608 
ROUTI O0e260 810 8628 
ROUTK O02 811 867% 
ROUTL O0231 Sle 8698 
ROUTM  O02342 813 875% 
ROUTN O92402 814 8838 
ROUTR ~ O0e4e0 818 886% 
ROUTS 36 819 8898 
RCUTT  O024S4 - 820 8928 
OUT: 002470 ~ 821 g3ss 
ROUTV OGeSe6 822 S0le 
ROUTW O02540 823 906% 
ROUTZ 2S76 §25 9148 
OW OOSESE 1655* 1667% 1669% 16818 
ROWCNT 9 684% 1010 1013% !015* 
CWK OOSE5 1655 1669 16808 
RTABLE 002000 735 797 ia) 
=°.099000 4258 731% 733 734% 789 791% 797 847% 
878% 8794 909% 910# 932 933 4 
851 960% 963% 965% 
1071% 1095*% 1096 1099 
118S* 1189 1197% 1le00% 
m 1234% 1273% 275% 276% 
1339*% 1339 1340% 1346% 
422% 423% 1424 
1876 1733 174S5* 1747# 
1816% i819% I1822%  1826% 
2208* 2209 e2l2 e232% 
2309% 
Rl =”002091 4278 732% 733% 735 
977% 978 goae 
105S*# 1088% 11338 1134 
1227% 1228 1230% * 
1331# 1333 1339% 134! 
1490% .1493% 1562%  1S64# 
2205 2210% raise 2220% 
SE =~000002 ' 4288 1011 1017 1019% 
15S6% 1557% 1558* 1559 
1730% 1731 1733% 1782 
cs 1811# 182i 1823% 1824 
Rz =~000903 4298 1026 1029 1 1040% 
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RY =*.000904 4308 1023% 1030 1031% 1036% i044* 1047% i048 1049* 1957# 1072 1074+ L075* 

ips O77* 1078 1079% 1085 1580* 1581 L7ebe §=61775e «=61777% = i782 i784 2144 
146% 147# 2148% e149 elSO# e164 2166% el74e 2177% 2688  2305# 

RS =".000005 3a3° 104S* 1556 1560 1576* 157 1580 1724% 1725 1727 1729# 17314 1740 
174 L744e = 1747 1771® = =1774% = 1778 2.779% =«1788% 1820 19821% 1822 214s elsis 
213% e2155* 2156% e2157% 2158 2176* 2285 es04e = ; 

R = 4328 age 697% 699% 699 

= 


STACK = C0100 409e = 7010783 


TKLM 77774 
SWR 091140 S6e8 699 vile 713 719% 1880 1917% 2290 2303% 


0b te Oe Oe Ob 8 oe 2gRE 18 00 08 Oe 08 Oe Oe Oe Oe te ee, 


00 448 464 
SW oocode 472% 
; SW1O Coo 4538 
SW11 000 4Se8 
SWie 610000 45148 
| SWi3 = Oe0000 4508 
‘ SWS ceed 4498 e . 7 »* >® 
| ass 1000: 4488 taal ciatit 
cWe 000004 471% 
SW3 000010 470% 
SWw4 000020 469% . ~ 
SuwS = 900040 4o8e 
SWE 000100 4678 
CW? 900209 466% 
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TEMPO }3 001246 





6 
VTVORG 901214 
001222 
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837% 987 
16:0% 1611% 
1259% 1260% 

390 1434% 
1435* 1438% 

991 1017 
1000 1019 
1S44* 1546# 
741 754 
1938 .1991 
2238 2266s 
S478 1548 
1317% = =61341 
1344 144S% 
954% 1191% 


1549 


865 
1997 
23le 


1368 


1475 
1333 


1008 


16208 


870 
cd2 


1479% 
igs 
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881 
2006 


1433% 


1526 
1441 


1273 
1801 


it) 


Ol 


896 


1 


1464 


1 
1 


Se 
34 


ge 
2 








1490 

1274 1231%  1298% 
1915# 

304 gl2 1991 
2012 2014 2017 
1H44# 14S2e 8 614S4s 





1299% 


1455. 
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es68 4 8 esese 
091300 669% 982% 1054 1059%  1063% 
Wy | 007e21C 1261 1309 18003 - 
097 iq 181! 18338 1867 





730 
0011 
001122 5548 
SBDDAT 001126 5568 " > 
SCHARC 010556 2075* 2085* 2092 210lx ‘ 2106s 
SCKSUR OO7440 = (sss BDH 27S 


wv 
£ 
+ 
& 
oOo 
BS 
-_ 
w 
oO 
a 
if 
mT 
Oo 
Ww. 
_ 
_ =. 


2006 
belied s73%# 1919 01 2031 2074 2103 2241 
SERFLG 901103 S4S% . ’ - : 
SERMAX OO111S coisa 
SERRPC OO1116 S528 
SERRTB 901164 590% 
SERTTL OO!112 S4Ss 
SFILLC O011S6 . 670% 2078 2109 
SFILLS O011S55 — S69# - 2109 
S$GDADR 001120 cS38 
$GDDAT O01124 SSS 
SGTSWR 007510 18928 2271 
SHD = 000002 404 4 
SHIOCT O11i14%6 2e22e9% 22408 
SICNT  O01104 S468 
SILLUP 011360 22982 EIS 23178 
SINTAG 001135 S608 1920 2037 e. ‘ 
SITEMB OO01114 cso# 
SLF 001i&2 S748 82021 2031 2109 2241 
$LPADR 001106 S478 i 
SLPERR 001110 S488 
SMAIL = x¥4%e% LU - 723 2062 
SMNEW 010330 1895 2035 \ 
SMSWR 010317 1892 20338 4 
SNULL OO011S4 - S688 2080 2109 © 
SOCNT 011004 el4¥ee 2171% 21848 
011006 el37# e2l4l# 2146 2149% e2160% 21868 
$PpAass 001100 S438 
SP 011354 23158 
Are Bish 705 22828 2310 
WRMG 011350 23138 | Ps. 
SPWRUP Oll2e66 2232 2e384 
SQUES 001160 S728 1938 2014 2031 2109 2238 2241 
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SROCHR 007722 19518 2274 
Eon gare” Hitz ) 
¥ 
T . 22028 76 
Baaeae at 
= RRHERE U a rr 
SSAVRE= ¥¥xRRE LU 2277 
$SAVRE 011364 2e9le 2299 2300 2301% 23198 
= 4 6948 702 703 705 707 1875 2037 
=] ¢ 6948 : , 
SSWR = 160000 404 40Se S72 .-2316 
$TKB 001146 S6Se 1534 1873 :-i#884 1901 1955 1961 
$TKS 001144 ; - Sb4e 753% 1873 -4882 1898 1922 1953 1959 
STN = QO00001 4O4s ‘ 
arte 001152 S678 1549%  2098% 109 
STPFLG 001157 571% 2109 
S$TPS 001150 S66e 1547 2096 2109 
£ 011150 703 eeS0# 
STRP = OO00011 eeS8# ec678 2268% 2269% 22708 2271 22724 2273 2274e 22758 22768 22778 
ST 011172 2255 eebsSe# i Mae ” 
$TS 001102 S44a : 
STTYIN 010276 1981 1982 1994 2012 2026 2030% 
= RHEEKE UJ 2270 
STYPDS= x¥xxe4 LJ 2270 ; 
$TYPE 19342 e0Sbe 2258 226S 
TYPEC Oi0Si2 1924 2077 2084 2091 ‘20968 2097 
YPEX O10S60 - 2l0e 2104 21078 
STYPOC Ol tp 2267 : 
STYP 0196238 139° e2l428e 2269 ' 
STYPOS ae size 
FILL 01100 . 136% 140% 215 21858 ‘ 
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